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VALPAR INTERNATIONAL 
Disclaimer of Warranty 


All Valpar International computer programs are distributed 
on an "as is" basis without warranty of any kind. The total 
risk as to the quality and performance of such programs is with 
the purchaser. Should the programs prove defective following 
their purchase, the purchaser and not the manufacturer, distributor, 
or retailer assumes the entire cost of all necessary servicing or 
repair. 

Valpar International shall have no liability or responsibility 
to a purchaser, customer, or any other person or entity with 
respect to any liability, loss, or damage caused directly or 
indirectly by computer programs sold by Valpar International. 

This disclaimer includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse¬ 
quential damages resulting from the use or operation of such 
computer programs. 

is returned to Valpar International within 30 days of date of sale 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12.00 
Replacement Fee. 
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S t r o 11 1 n g T h r o u g h v a ID 0 S 


Until now, one of the? major drawbacks of FOR'T'Hs for Atari 
was that you could could either save code on screens or in DOS 
files, but not both. The demand to have both brought on the 
development of this two-disk package — valDOS. 

With cal DOS ou can load FORTH screens iust. as before. or 
vou can load FORTH source from standard Atari DOS files. But. 
t h i s p a c k a g e a 11 o w s m u c h m o r e t h a n t h a t. A c o m p 1 e t e f 11 e 
editor is supplied which can be used to edit FORTH (or 
assembly, Pascal, etc,,) source code and save it in DOS format. 
To use this package to its fullest, at least 32K of memory 

If vou have less than 32K, don’t worry, 
if iust means that vou can’t load all of the commands at once. 
The package is broken into six major parts: 

ValDOS (approximate! 3.6K compiled) 

Basic DOS commands (keyboard entry only) 

Format ter/copiers 

We shall begin this strol 1 by talcing a look at the first 
Before starting', duplicate both master disks 
( we’ll be modifying the valDOS 11 copy).. Insert your valDOS- I 

Look for the line that says DOS COMMAND EXTENSIONS and load 
them in. This should take a few minutes. There are? so many 
commands with so mar \ variations on each that only the 
I rig Til .1 ghtsr of the pack age? wi i 1 bo discus red here. Each of the 
commands is erplaj ned in detail in section LX I I, 

Insert your copy of the valDOS II diskette. Type DIR and 

following on your 

di api ay: 




ASSM .4TH 


:!. o 




54 
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■ an in the aero p a. no , XB 00 T, 4 lH is a rou.+yi no wrweb 

a 1 . i owe d ?t i pnar i ea greater than ; Ad to bo BAVEd and Ad A r a B 

OOP! I ! A„ 4 T H i s the i ontine used to jo t ea. a eereen s/DB.nr 

nl> [ .n !'M chocumentat i on w And - i na ! > v , F I! ,E I! A 4 TH a root ine 

i; ani ; ::-fom i-riRTH poroene ‘ o ADA to Jo-. 

n •! ■ , . : 

o:'r:.nb:rv of My- din- in drive too. The P j. R •; omra - an. 1 1 i a- 

Tr . the -f o 1 J. ooi no p 

di R ASAM *A !H 

i.n those on nmol oo, there- re- the 1 wo 
wo i c h need 0000 r-v; n I an a • 1 on „ 

any exngl e let tor when compare with id. ion a me n Aae 

di ror:> ..<r v ” X* eel I J. match n ... * • nup of 1 o’-tero to the •• oh 4 

•from it- pocit:non Re the* one! at th- 1 1 I e-name In * « 

abo -Ou al j 11 1 e - at art 1 no with ; " ore 1 1 reel a. the 

; | yi p<" who no f H:h i ! etna:- ,! j * ! w , ■ » •• ■bd 

1 t N a f ? -i t f em \r *■ an b«■ • an vt h 7 1 • o 

adva»-p : d : ■ - • I : - onr ammm-r 1- ■, t.np S! •< tor - wi<.tmn of die 

d-Tjh: I H . •; o o-*A : ; et b n 1 . • , „ I Ad-!'I ! • w f <: •• ■ m- 

numbeed • ar : 1 no :•< \ 
booi no i oa p ;v 1 ' • <ine 1 

The '.! a-":t e:o.j U:i!' -; :i nd- r. «too t'hi:-:- ai d - ■ ' d" as 

attr 1 huteh 

id* i 1 C 0 t h at 

at aurr,ent- on the- - i. oiit Ai t!- i*qh Pw'f d:i- i i f 1 aa ;-f • 

r- losed on Ihe 

• • -yi a t 

t-p -1 r 1. ct • on on 

that no blanks 0 a. v annear wit rip* trae laieeand A; p i- 

aerfia r <d 

i:! o e s i h 1 s n 1 e: e J. v o r 11 • i 

command can a. j so amend t eao <a" 'more-' f i. e-- tenei;;er an el eai'e- 

ehnt.il d now coni' a.i n ! t L. i-.- = i»a?H with ea.i?.« . 1 b I S, a IN 


E ! L.i: A 





St rollinq Thru va l 0uS 




as many files 


t q u :i. t e t h r o u q h y e t * I f w e w e r e 


ay of XB00T.4TH. 


However, if we 



w h a t e v e r w a s a.!. r e a d y 3. n r IL E. 2 „ 


0 f c o u. r s e „ a 1 s o 1 e q a 1 i s « 


would be contained in FILE2. 


source, but does not have the 

The RENAME 






for RENAME is "new=aid". For 
RENAME might be a chore,, 

to wort: with, type 





e, t h r r e rn a i n d €* r a f 
cf : ■ a mp 1 e , f he f i 1 es 


■ FILF 1 from beina modif ied in 
:e i DCF commands 

lor! F1LE 1 report MYFIL.E as 

issue a 
file that matches the 
I lowing two examples: 





•: t r o j 1 :i n o 1 h y v a 1 D O S 


LOCK *, 4TH 

LOCK *. 4 TH/M 

In the first form, a verification prompt is issued for 
each f i1 e before if is locked..- while in the second form, the 
veri. f i cation message is not displayed. The / N swj tch stands 
; o r * 1 N o a s k 1 f o r '' N o v e r i f y 1 *. 

B o t h i< ] i... L a n d U N L 0 C K h a V e e x a c: 11 v 11") e s a m e a r q u m e n t j. i s t 
as LOCI/. Use caution when using the / N as tch with the f I LI 
command ,. 

I • ; w e w a n t t o q e t a 1 1 s 1 1 n q o f a t e x t f 3. I e „ w e u s e f h e 

PL: IN > c ommand „ For e>: amp 1 e s 

PRINT FILE-If.4TH 
we qefs 




S t r o 11 i n q ! h r u v a 1.0 O S 


Files DishILEIT.4TH 
0001 

0002 ( Routines FILE-IT 
0003; 

0004 The following routine will 
0005 transfer a specified range of 
0006 FORTH screens to a file on 
0007 
0008 

FILE~IT 1st,1ast,fi1ename 
0010 FILE-1T 10, 20. MYFILE 

0011 

Note that DOS commands tend to be 
long because of error checking and 

0014 
00 15 
001 6 

0017 s FILE-IT DOS < — } 

0018 GETARBS 7WRGARQ 44 GE T ARB 7WRGARG 

0019 

0020 

0021 PAD OOP 1 AMD - BUFBOT OVER 
0022 
0023 

0025 B 7 SCR / „ „ M raa?;,, " OR 

0027 

0028 

■ 

00 3 1 
0032 
0033 
0034 
00:35 
0036 
0037 
O' >38 
0039 

0040 IF FLEXST DSKERR ' SYSEF1 ENDIF 

0041 

0042 

0043 

0044 F 'CLOSE> 

0046 

0047 

0048 FORTH 






Si-.ro:i I i no I hr vR! .DOS 


The PRINT command has- several options. If the switch /N 
'.no line number ::. 1 is present, the file is displayed without. 

If an optional starting line number is supplied, 
d r i n t i n q b e g i n s a t t h a t 1 i n e: 

PRINT RILEI!,4 TTT/N,17 

This will print the file starting with line 1 .. and with 
no line numbers. Note that the listing may be aborted at anv 
time by pressing one of the yellow console Revs. 

The PRINT command is ideal for displaying text, files, but 

try H.HIMP on FJLEI.£, 4THs 
FDUMP FiREIT.4!H 
tiles Ills F'IL!:7! ! ,411-1 


00 do 


28 




75 




R0U.t X 

0008 


65 






45 

no;; 



2D 
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0018 

54 


65 

2 ! ) 






f 0.1 1 


O'I i , „ • 

Li Re PR IN P. FDUMP m t h e 

Th i s t or mat :l. s me -e approDr at e when cent 
i - V)! IMP a | oe -s dumps i n hea .adec.ma .1 « 

! he f i e 

a m u s< d t. o p r i n t 6 a r: r e/■ - < < a - ?::> aoe t or 

a nd the rou.1i n< «.)it ! 1 61 5 ai?oui. d now be x n tbe d:i. ct i onai- v« There 

x a a. nice t eat ur a ; o the F« • )AD command x 

FOEMF i i >0(JL 3 SI B 
OM ECHO 

FLOAD DOCLISTS- 4TH 

ho t. i ce t h at t h i s 1: :i. me t he t :i l e oa b f chood t r•< t h <: • den X a a b i t 

Holding down a console %' oy eel; ah or i load once* th& current 
def i n 1 1 i on 1 c come :l 1 ed , 

1 f vou. h a vp a •• our ce f i I e whtc h i s pI - e I r • 1 3 •/ c.on t a :i nc d 
11 ■o •/ c a n b e i. i n ! <• ? d t o qt h e r u c i. n n t h e I • L 0 A D 

end ni th an 



S t. r o .11 :i. n q '!' I"i r u v a 1 D 0 S 


FLOAD PART2.4TH, and part2 could end with FLOAD PART3.4TH, etc. 
In this way, a multi-part file could be loaded. Althouqh this 
method works, it should be avoided for several reasons. One 
re? a son is that if any of the files are renamed, or if they are 
moved to a different drive, each of the original files may have 
to be edited to change the FLOADs. A second and more 
complicated reason is that for each file FLOADed this way, a 
separate file buffer needs to be allocated. The default number 
of file buffers is four, therefore no more than four files can 
be chained. 

The solution . to this problem is to create a file which 
contains nothing but FLOADss 


File: ALLPARTS.4TH 


0001 FLOAD 
0002 FLOAD 
0003 FLOAD 


PARTI,4TH < 
PARTS,. 4TH >; 
PART3.4iH < 


load in the 
load in the 
. . . ) 


routines ) 
routines } 


this method requires exactly two file buffers and allows 
•filenames to be changed easily, if desired. 

this was just a brief stroll through the valDQS package. 
There are many powerful commands left to explore. !he 

following section on command words explains each command in 
d et a 1 1 „ R e a d t h r o u g h t. h 3. s s e c. t i o n c a r e f u 11 y a n d o u t t h e 
commands on a test disk. And then there is the File Editor, 
with its own set of documentation, in section LXIV. 

Have fun 


F ie ; D2s VER IF \ , 4 fH 




0002 

0003 

D 004 

0005 

0006 

0007 

00:11 
001. 7' 

00 i 4 
0013 

00 16 

001. 7 

m i s 


R Q u t i n e;; (4 r :i. t e w / o v 0 r i $ y 

T he f o 11 o w i n q r o u t :i n 0 a 1 I ows w r i t e 
o p 0 r a t i o n s 1 0 t h e d i s k w i t h o u t 
r eac! ver :i. f i cat :i on « Th :L s speeds up 
d 3. s \ a c e: e s s b v m a r \ y t i rn e s . N o 1 0 
that once this routine is 1oaded h 
i • rn a y n o t b e -f a r q o 11 e n ! 


Format: 


BASE! 2 HEX 
ASSEMBLER 

LABEL -DBF 


DM VERIFY 
OFF VERIFY 


0019 

AD C, 02 C, 03 

c, 


C, 

52 


0020 

D0 C. 05 C. A9 

c. 

40 

c, 



003 i 

HERE 4 t- , A9 


80 

c 

8D 


0022 

0-S l , 0 ::; C, A9 




8D 


0023 

00 C, 0 3 C, A9 


07 


8D 


0074 

06 C, 03: r, A 9 

c, 

80 

c. 



0025 

• or ! ?h:< i , for 

Percom?) 

3D 


0026 

08 C, 93 C, A 9 


00 

e. 



00 77 


Per corn 

1 ?> 



i ; -028 



r.r Q 




0023 














003 1 















VER IF V 







003F 

0038 

0039 

004 1 


0# 7 * 50 ! 

LITERAL C‘ ■ 

BASE ! 

















Commandl Words 


Introduction and Conventions 


T h e v a1 F 0 R T H D i s k 0 per a t i n g S y s t e m c; a n b e t i r o k e n j. n t; o 
two distinct categories. The first contains the system 
words which are for use within running programs and are 
rarely typed directly at the keyboard. The second 
category contains "command" words which were designed to 
be executed only at the keyboard, fvpical command words 
are those that list the directory of a disk or delete a 
f i 1e from the disk. 

Commands words differ from normal FORTH words in that 
all necessary arguments are entered following the command 
word. For example, to remove a file from a directory, we 
wauld types 


KILL UNWANTED.FIL 
instead of the usual FORTH-], i kes 
" UNWANTED.FIL" KILL 

which will not work as-is. The only restriction placed on 
this method of input is that absolutely no blanks must 
appear within the command list since the blank serves to 
i n d i c a t e t. h e e n d o f t h a t 1 i s t. 

KILL FILE1„FILE2,FILE3 

would properly kill the three files specified while 
KILL FILE!,, FTLE2, FILES 

would kill the first file and then abort with an error. 

In the command descriptions that follow, any portion 
of the command format enclosed by the braces " {'* and •*>•* 
is optional and need not. be entered. 

Additionally, some of the commands may be aborted bv 
pressing one of the yellow console keys found on the far 
right of the keyboard. Those commands which have this 
feature are indicated by the sentence? 

"!hi s command is interruptab1e" 

All commands and arguments must be entered in upper case. 


LX II 


1 



v a 1 D O S C o m m a n d s 



CLOBE 

R 0 e a s 0 f i 1 e b u f f er a n d u p d a t e f 1 1 e» 

STATUSs 

User memory at PAD is untouched. 


COMMAND FORMATS 

C L 0 S E f f i le n u m > 


OPERATION: 

The CLOSE command f1ushes the file buffer (different from 

i f u p d a t. e d r , a s s o c 1 a t e d w i t h t h e 

specified file number. The disk buffer is then released for 

(see OPEN)„ Any future references to the 

a n o t h e r 0 P E N c o m m a n d 
If a file-number is not specified, or if it is 
zero, all open files are closed. 


EXAMPLES 5 


NOTESI 


LX 11 






v a 1 D 0 S c o m m a n d s 


OOF>Y 


Tr a n sf er t he con t en t s of one or m o re f i. 3. es t o ano t her f i 3. e« 


STATUSs 

User memor y at PAD i s unt ouc hed * 


COMMAND FORMATS 

COPY outf i 1 e(/A} =i nf i lei {, inf i 1 e2 i , . . . > > 


□PERATION; 

T h e c o n t e n t s of " i n f :i. 3. e 1 u a r e t: r a n s f e r red t o “ o u t f x 1 e„ 11 I f 
1 1 d o e s n o t a 1 r e a d y e k 1st, " o u. t f i le" i s c r e a t e d„ I f t h e / A 
s w i t c h i s p r e s e n t « t h e i n p u t f :l. 1 e 3. s i n s t e a d a p p e n d e d t o t h e 
output file. All additional input files are appended to the 
c u r r e n t o u t p u t f i 1 e 3. n t h e o r d e r i n w h 3. c h t h e y a p p e a r „ S i r* q 1 e 
d r i v e u s e r s s h o u 1 d a 1 s o s e e F M 0 V IT „ 


EXAMPLESs 

COPY MYFI LE« BAK--MYFI LE 

Transfer contents of MYF l LE to MYF1LE« BAF on the 
d e f a u 11 d r i v e u n 1 1» ( s e e S £ i U NIT) 

COPY 02 s PART :! / A-PART 2 

A p p e n d t h e f :i 1 e P A R T 2 f o u n d o n t h e d e f a u 3. t u n i t 
t o f 1 1 e P A R T1 f o u n d o n u n 1 1 t: w o« 

COPY ALLPARTS-PART1,03sPART 2 ? PART3 

Transfer the contents of PART 1 to ALLPARTS«, then 
append PART2 on unit three to the new file ALLPARTS ? 
a n d f i n a 1 1 y, a p p e n d P A R T 3 t o A L L P A R T S« 


NOTESs 

In the event that an error occurs, the output file may he 
1 e f t o p e n a n d s h o * x 1 d b e c 1 o s e d u s i n n t h e C L. 0 S E c: o m rn a n d« 


LX 11 


va 1 DOS Commands 


DIR 

D i s p 1 a v 1 i s t o f f i 1 e s o n d i s k „ 

STATUS2 

Us 0 r memor y at PAD is untouched. 
Th:L s command i s i nterruptabl e* 

COMMAND FORMATS2 

Of i 1 espec > 

DIR unit 


OPERATION: 


The DIR command lists all files within the director- on 
t h e d © t a u 11 d r i v e u n i t u n 1 e s s a n o p t x o n a 1 f i 1 e s p e c i f i c a t i o n o r 
drive number is specifiedu It the optional fi1espec is 
s p e c 1 1 i e d, i t m u s t r e s o 1 v e t o a 1 e p a 1 f i 1 e n a m & or e 1 s e a n e r r o r 
wi 11 resul t« Li kewi se. : , 1 1 the opt i onal un i t speci t i cat i on i s 

s u p p 1 i e d , i t m u s t b e a n u m b e r f r o m 1 t o 4 i n c 1 u s i v e „ 1 h e DIR 

command al so di sol a vs the current number of free sectors,. Note 
t h a t t h e s i z e o f a T i 1 e d 1 s p 1 a. v e d i n t h e 1 i s t i n q i s n o t 
necessari1v accurate unless that file is closed. Howeverthe 
number of free sectors on disk is always accurate* 


EXAMPLESs 


DIR 


.! i st 3 n t or mat i on about al 1 f j 1 es 
•f o u n d o n t h e d e f a i«. 11 u n i t« 


D1R M V F r IL. E 1 1 s t i n f o r m a t i o n o n M V FIL L f o u n d 

o n th e d e f a u 1 1 u n i t „ 

1 1 st i n f or m a t i on on a 11 f i 1 e s w i t h 

the extension 4TM found on unit two* 


1 i s t i n f o r rn a t i o n a b o u t a 11 f i 1 e s 
f oun d on u nit t hr ee„ 

NOTES 2 

1 f t h e D 1 R c o m m a n d i s o i v e n w i t h i n a f i 1 e t h a t i s t o b e 
1 o a d e d ? a f i 1 e p e c o r u n i t m u s t b e s p e c :l f i e d . T h u s t h e 
first example above must be 2 DIR t 


LX 11 
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va1D0S command5 


OISKCOPYn 

Duplicate an ©Misting diskette. 


STATUS; 

PAD is modified. 

COMMAND FORMAT; 

DISKCOF'Yl single-drive copy 

OPERATION; 

DISKCOF'Yl is for users with onl y one disk drive. DISKC0PY2 
is for users with two or more drives. 

EXAMPLES; 

DISKCOF'Yl 

Copy a disk: using only drive one. The user is 
prompted to insert the source diskette, and then 
the destination diskette. This is repeated 
until the entire source diskette is duplicated. 

DISKC0PY2 

The diskette in unit one is copied to the 

NOTES; 


/ a 1 D 0 S C o m m a n d s 



FFO I T 

Edit. a (FORTH ) source file- 


STATUS 3 

PAD is modified- 


COMMAND FORMAT; 


□PERATION3 

T n e i n p u t file i. s r e a d into m e m o r y b e q i n n 3 . n q a t P A D w h e r e 
t h» e e d .11 o r i s u s e d t o m o d i f v i t„ U p o n 1 e a v i n g t h e e d i t o r ? t h e 
rn o d i f i e id f i1 e i s w r i 11 e n t o t h e u t p u t i. j. e, 3 . f s p e e i f i e d ? 

otherwise it is written back to the input f i 3. e „ See the valDOS 
d o c u m e n t: a t i o n i n s e c 1 1 o n I.... X IV f c:« r f u r* t h e r 

informat:ion. 


'EXAMPLES;; 

EDIT MYFILE: 

wr i t e the mod i f i ed ver si on bac i t.o MYFI' E, 

ED IT D1 sRAGMAN„4TH, D2 3 RAGMAN„4TH 

Edit the file RAGMAN,, 4TH on unit one and write the 
r e s u. 11 a n t f i 1 e i n t o f 1 1 e R A 0 M A N. 4 I H o n u. n i t t w o« 


NOTESs 



LX 11 
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valDOS commands 


ENDF I L_ 

En d f i 1 e at c urr ont file c ur sor pool t i. on „ 


STATUSs 


User memory at PAD is untouched. 


COMMAND FORMATS 

ENDFIL f i 1 enu.m 


OPERATIONS 


T h e c u r r e n t f i 1 e c: u r s o r p o s i t ion w i t h 3. n t h e s p e c 3 . f i e d file 
is marked as the now end of that file. All data after that 
p o i n t i n t h e f 3. 1 e i s 1 o s t a n d a n v d i s k s p a c e u s e d b v 1 o s t d a t a 
i s reel ai mod 


EXAMPLES 

ENDFIL 2 




NOTES s 

Care should he taken if this command is used on a file 
that is open under more than one fiIe number. 











EOF 

hove t h e f i e c: ur sor t o t h e en d o f t h e t i ]. & „ 

STATUS 2 

U s e r m e m o r y a t P A D i h u n t o u c h e d • 

COMMAND FORMAT;! 

OPERATttJNs 

The cursor 
end O'! the fil-e. 

EXAMPLE 2 









B 




v a l D 0 B c a m m a n d s 


ENTER 

COMMAND FORMAT5 

A1though 










va1 DOS Commands 


FDUMP 

Perform a hex/ASCII dump of a file. 

STATUS: 

User memory at PAD is untouched. 
This command is interruntable. 


COMMAND FORMAT: 

P DUMP f i I en a me -C / W } 

OPERATION: 





I he specified file is displayed as a sequence of he: 
nu mheir si- and ASC11 equ i \/a 1 en t s - Thi i s i s t y p i c a. 11 y used f or 
looking at machine language programs stored on disk. Normal 
output is 8 bvtes per 1in e» however „ if th e /W (f or M wide' 1 ) 
switch is present, 16 bytes per line are displayed, which is 
m o r e s u i t a b.!. e f o r p r i n t e d o u t p u t, 


EXAMPLESs 

FDUMP MYFILE,OBJ 

Dump the file MYFILE,OBJ to the current output 
d e v i. c ®« E :i. q h t b y t e s /1 1 n e a r e d i s p 1 a y e d .. 

FDUMP MYFILE,OBJ/W 

D u rn p t h e f i 3. e M Y FI L_. E, 0 B J t o t h e c u r r e n t ot p u t 
d e v i c e16 b y t e s / 3. j. n e a r e d i s p 1 a y e d „ 


NOTESs 





f x i _Ei— x nr 


T r a n s f o r rn F 0R T H screen format t o D 0 S f 1 1 e f o r m a t 


STATUS: 


F : *AD is used. 


COMMAND FORMAT: 


OPERATION: 

The screens from scr 1 to scr2,, i nclusive ? are read into 
free rnemor * - he 1 HJS d i s i s then japped 1 nto the dr i ve and 
the screens are written to the specified filename- 


EXAMPLES: 

Screens SO through s are read into free memory- 
T h e i. j. s e r i s t h e n p r o m p t e d t o i user t t h e D 0 S ~ 

The data is next 


NOTES: 








v a J D O S C o m m a n d s 


FLOAD 

Comp :i. 1 0 a FORTH source f i 1 0 f rom d:i sk . 


STATUS: 

P A D :i. s m o v e d b v c o m p 3. 1 a. 1 3 . o n a s u s u a. 1 „ 
T h i s c: o m m a n d 1 s 1 n t e r r u p table. 

COMMAND FORMAT: 

FLOAD f i I enamel’ / CO- 

FLO AD fi]ename l,11nenum> 


OPERA!IONs 

I h e F!.... 0 A D c o nrt m a n d s 0 n d s t h e F 0 R T H s o u. r c 0 c o d e c o n t a 3. n e cj 1 n 
the specified file to the valFORTH compiler. If the /C (for 
c. o n t i n u 0 ! 1 ) s w 3. t c hi 3. s q i v e n , J. o a d i n q b e g i n s a t t h 0 h 0 g i n n 1 n q o f 
the last line edited in the file editor. This allows load 
errors to be fixed and compilation to be continued mid-file; 

I f t h 0 o p 1 1 o n a 1 i i n 0 n u m b e r i s p r e s e n t« 1 o a d i n q p r o c ■: e d s f r o m 

t h a t 1 j n 0 o f t h 0 f 3. j. 0 , 

EXAMPLES: 

FLOAD MY (SAME „ 4TM 

Load the DOS file MYBAME, 4TH from the default 
d r i v 0 u n i t a n d c o m p i I e i t „ 

FLOAD D2|CYCLOPS/C 

w i t h t h 0 1 a s f 1 i. n e e <:! :i 1 0 d 3. n t h 0 f i 1 e e d i t o r » 

FLOAD FORTRAN.4 TH,50 

unit beginning with the 50th line in the file. 


NOTESs 

It is possible to LOAD a screen from a file being FLOADed 
d i f f erent tin i ts* A1 so see ECHO command, 
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FMOVE 

STATUS; 

Memory at PAD is used. 

COMMAND FORMAT; 

FMOVE out f 1 1 e~i nf i 1 e 


OPERATION; 


is for those users who have access to 
only one disl drive. It is used to transfer a DOS file from 
one disk to not. her. If ini >. le is too large to fit in 
available free memory, mult le disl swaps must be made. FMOVE 


EXAMPLES; 

MYFJLE to MYFILE.BAK. MYFILE 
is read into free me nor ■„ o rce and destination 

d tne data stored in free 


NOTES; 

the COPY command for this 


\ 
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FORMAT 

F o r m a t a d :L s k e 11 e for u s e. 

STATUS; 

User memory between PAD and BUFBDT is untouched. 

COMMAND FORMAT; 

FORMAT 


OPERA I' I ON: 


The FORMAT command initializes a disk- for use with valDGS. 
If a unit number is supplied, formatting will be attempted on 
t h a t u n 1 1 „ o t h e r w i s e t h e d e f a u 11 u n i t. i s a s s u med. T h e c o m m a n d 
will issue verification prompts and will also allow sectors to 
be locked so that no file will ever occupy those sectors* 
feature allows miring FORTH screens (virtual memory) and files 

I his command also allows the newly formatted disk to be named,, 


EXAMPLES; 

FORMAT 



Format the default drive i<nit„ 
FORMAT 2 


Format unit two,, 


NOTES; 


This command replaces the one found on the valFORTH 1.1 
disk. See NAMEDISK. 
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M o v e t h e f i 1 e c u r s o r r 0 1 a t i v e t o 1 1 s c u r r e n t p o s i 1 3. o n • 

STATUS; 

User memory between PAD and BUFBQT is untouched. 

COMMAND FORMATs 

FSPACE f 3. 1 enurn, count 


OPERATIONS 


T h e c u r s o r o f t h e s p e c i f 3. e d f 1 1 e 3. s m o v e d fo y t h e s i q n e d 
of f set. specif! ed toy eount» The f i 1 e c.ur sor may toe move d up to 
32767 bytes in either direct ion,, with a negative count spacing 
t o w a r d t h e to e g i n r 1 1 n g o f t h e f i. I e. I f t h e c o u n t i s z e r o,, t h e 
file cursor is left untouched. 


EXAMPLES; 

f space: 

M o v e t h e : u r s : r o f f 1 l e o n e 12 3 b v t e s t o w a r d t h e 

FSPACE 2,-345 


M o v e t h e c u r s o r o t f i 1 e t. w o '345 h y t e i:e. t o w a r d t h e 


NOTES; 


Spacing 
forward due 
this reason ? 


bac:l:ward is general ly much slower than spacinc] 
t o t h e m a n e r i n w h 3. c h d a t a 1 s s t o r e d o n d :i s k F o r 
backward spaci ng shoul d b€? avoi ded« 
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K I I_I_ 

Remove files and release disk space. 









STATUS!! 

User memory between PAD and BUFBOT is untouched. 

COMMAND FORMATS 


KI LL f i 1 espec 1 C/N> C, f i 1 espec2C /Ml C ? „ « . > > 


OPERATIONs 


The KILL command removes the specified files from the 
specified unit. If no unit is given in the file specif :> cat! oru 
the default unit is assumed. If the fx1espec is unambiguous 
< i«e« f no wild cards)» no verify prompt is issued. If the 
fiIespec is ambiguous ? a verify prompt is 1ssued for every fi1e 
a b o u t t o b e d e 1 e t e d u n 1 e s s t h e / N s w 1 1 c h i s p r e s e n t, 


Examples? 
k i u.... 

De 1 et e f i 1 e I H18 on t he def au.11 dr i ve «in i t „ 
KILL PART 1,PART2,PART3,03 sPART 3 


Remove files PART 1 ,, PART 2 , and PAR I'3 from the 
d e f a u 11 u n 1 1. a n d a 11 f .1 1 e s f o u n d o n u n i t t h r e e w i t h 
f i v e 1 e 11 e r n a m e s t h a t b e g i n w i t; h P A R1 „ 


KI LL * . BAS, % , BA! /N« 02 ?, MVP ILE, T EST „ % /N 


R e m n v e a 11 f i 1 e s o n t h e d e f a u 11 u. n i t 
ex t ens i on BAS q i v i nq ver i f r ompt s , 
•f i 1 e s w i t h t h e e m t e n s i o n B A K w i t h o u t 
p r o m p t s D e 1 e t e M Y F1L E o n u n 1 1 t w o« 
files named TEST on the default unit 


w i t h t h e 
Remove a11 

and all 


NOTESs 













valDOS commands 


LOCK 

Write and modifv-protect files on disk 

STATUS 5 

User memory at PAD is untouched., 

COMMAND FORMATS 

OPERATIONS 

ects the specifled files from heinq 
e f i i e sp ec i s u n amb i g u. o us < i „ e „ „ no 
wild cards), no verii prompt is issued. If the filespec is 
ambiguous* a vet fy pr >pt issued for every tile about to be 

1 o c k e d u n 1 e s s t h e 

les w in HF i /© letter names that start 

Loci- PARTI and PART2. 

■ LEI on unit two, and 


NOTES: 



va1 DOS Commands 


NAMEDISK 

N a m 0 a d :l. s k e 11 e * 


STATUSs 

U s er mernor y at PAD j. s un t ouched * 


COMMAND FORMATS 

NAMED I SK -Cun it > 


OPERATIONS 

'he valDOS file system allows disks to named for 
:i. d e n t i f i c a t i o n „ C u r rent 1 y , f t h i s n a m e i s d i s p 1 a y e d o n 1 v i n 

but 35 available for user programs* The 
N A M E. DIS K c o m m a n d d 1 s p 1 a v s t h e n a m e o f t h e d i s k i n t h e sp e c: i f i e d 
unit and prompts for the new name to be entered* Disknames mav 
b e u p t o 2 0 c h a r a c t e r s I o n q an d a n y c h a r a c t e r m a y to e i n c 1 u d e d 
w i t h i n t h a t n a m e „ 

EXAMPLES 


NAMEDIBK 


Rename the disk in unit three* 


NOTES s 

D i s k s n a m e d i n v a 1 D 0 S w i 3.1 
DOS's for the Atari- computers- 




valBGS commands 

OF’-Eirvl 

Open a file for access,. 

STATUS: 

User memory at PAD is untouched. 

COMMAND FORMAT: 

OPEN filename 


OPERATION: 

The OPEN command assigns a buffer area and a file access 
number to the specified file. 


EXAMPLE: 

Opens the file TEST.4TH on the default unit. 


NOTES; 

are 1ogical 1y different 
files as far as the DOS is concerned. If a file is opened more 
than once and an operation such as ENDFIL is given, 
possible that the other opens will contain data in their 
transfer buffers that technically no longer exists. Note also 
that disks should not be exchanged when there are files open on 
the disk. 
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OPEINT 

i... i s t a 11 f lies c u r r e n 11 y o p e n „ 

STATUSs 

User mefrior y at PAD i s un t a uchied » 

OPERATION: 

A1 ]. f i 1 e s c u r r en 11 v o p e n a r e d i. s p 1 a y e d a 1 o n q 
a s sociat ed file acces s n umb er s» 

EXAMPLES 

□PEN? 


NOTES: 


w 3. t h t b 



va 1 DOS c: omman d s 


PR I NT 

Display a text file on the current output device. 

STATUS: 

User memory at PAD is untouched. 

This command is 1nterruptab1e. 

COMMAND FORMAT'S 

P RIN T f i 1 e n a m e £ / N > £ „ 1 i n e n u m > 

OPERATIONs 

The contents of the specified file are sent to the current 
out p ut c:l ev ice. E ac h 1 i n e of t ex t i s aut omat i c a 3.1 y numb ered 
unless the /N switch is present* If the optional line number 
s p e c i f i c a t i o n i s su p p 1 i e d « p r i. n t i n g w i 3.1 b e q i n w j. t h t h a t 3. i n e 
of the file. 

EXAMPLES: 

PRINT 

PR I NT 

NOTES: 


GALAXY.4TH 

Pr i n t t hi e f i 1 e G AL A X Y „ 4 TH w i t h 3. x n e n u mb er s „ 
EDITOR.4TH/N 

P r x n t t h e f i 3 . e E D1T 0 R „ 4 T H w i t h o u t 3. i n e n u m b e r s „ 
D2sMYFILE.TXT., 56 

P r i n t t h e f i 3. e M Y F1L. E » T X T o n u n i t t w o w i t h 1 i n e 
n u m b e r s,, begin n i n g w :i. t h t h e 5 61 h 1 i n e o f t e x t 
in the file. 


LX 11 
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READ 

R e a d a f :i. 1 e i n t o rn e m o r y„ 


STATUS * 

User memory between PAD and BURBOT is untouched. 


COMMAND FORMATSs 

READ fi1en ame, ad dr ess C „ c pun t > 
R E A D f 1 1 e n u m , a d d r e s s < ? c o u n t > 


OPERA|ION u 

In the first form, the specified file is opened and the 
"count" bytes are read into memory starting at the 

the entire 

!he file is left closed. In the second form 
of the command, the first "count" bytes of the already opened 
f :i I e are read i nto the spec 1 f i ed address. The f i I e :i s I ef t 
o p e n a f t e r t h e r e a d :i. s c o m p 1 e t e„ N o t e t h a t t h e a d d r e s s c a n b e 
specified by a number or by a single word (such as PAD) which 
r e t u r n s a n u m b e r „ 



EXAMPLES:; 

READ DRIVER.OBJ,PAD 

The f11e is then c1osed, 

READ 3,40960 ? 1000 

Read the first 1 000 bytes from the file specified 

b v t h e f i I e a c c e s s n u m b e r o n e i n t o a d d r e s s 40960. 

The f 11 e i e> 1 ef t open.. 

NOTESs 

No check is made to see if the data is being read into 

m e m o r y o c c u p .i e (d b v t h e F 0 R T IT d i c t i o n a r v „ D 0 S b u f T : e r; s, o r v i d e o 

memory. It is up to the user to supply safe load addresses., 
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RENAME 

Rename a -file. 

STATUSs 

User memory at PAD is untouched. 


COMMAND FORTMAT: 


RENAME newn ame~o ]. dn ame 


OPERATION: 


The specified file is given the specified new name 
must not already exist a file with the same name 
specified new name or an error will result* 


EXAMPLE; 

RENAME MYFILE. 4T H"MYI- ILE 

The file MYFILE is renamed as MYFILE.4TH. 


commands 


There 
as the 


NOTES 
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REW I Inid 

Move the -file cursor to the beginning of the file. 


STATUS: 


User memory at PAD is untouched. 

COMMAND FORMAT; 

R E WIN D f i 1 e n u m 


OPERATI ON: 

The cursor of the specified file is repositioned at 
beginning of the file. The file must, already be open,. 


EXAMPLE: 





REWIND 1 


the 


R e w :i n d 1 11 © n u m h e r o n e» 
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SETUNIT 

Set t he def au 11 dr ive un i t . 

STATUS: 

User memory at PAD is untouched. 

COMMAND FORMAT: 

SETUNIT unit 

OPERATIONs 

Wh e n e ver a f i I en a me does n o t ex p 3. i c i 13. y c: on t a i n a d r i v e 
specification, the new default drive unit will be assumed. 
U nit b a r e nu mbered f r om one t o fo u r. 

EXAMPLES 

SETUNIT 2 

S e t t h e d e f a u 11 uni t t o t w o . 

NOTES: 
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UNLOCK 

U n p r o t e c t a f :i. 1 e b o t h a t i t m a y b e m o d i f i e d» 


STATUSs 

U s e r m e m o r v a t P A D 3 . s u n t o u c h e d» 


COMMAND FORMAT: 

UNLOCK f 3. 1 espec 1 C /M> < , f i 1 espec2 C /NT £, . . „ > > 


□PERATION: 

T h e U N L 0 C K c o m m a n d r e m o v e s p? r o t e c t i on f r o m t h 0 s p ec 3. f 3. e d 
•files so that thev may be killed or modified- If the files pec 
is unambiguous (:i. „e nf , no wild cards-) „ no verify prompt is 
3. s s u e d - I f t h 0 f i 1 e s p e c i s a m b i g u o u s ? a v e r :i. f y p r o m p t :l. s 
issued for every file about to be unlocked unless the /N switch 
i b present« 


EXAMPLES 3 

UNLOCK THIS 

Un J. dc k f i 1 e THIS on t h 0 d e f au .11 d r 3 . ve un :i t *. 

UNLOCK PART 1 ,, PART 2, PART A ? D3 s PART 1 

Un 1 dc k f 1 1 es PART 1 PART 2 „ and PART 3 from the 
d e f a u. 11 u n i t, a n d a 1 1 f i 1 e s f ou n d o n u n :i t t h r e e 
w 3 . t h f i v e 3. e 11 e r n a m e s t h a t b e g 1 n w i. t h P A R I « 

UNLOCK * it BAS« ^ , BAK N, D2 u MYE [ L.L , TES T u t /N 

Unloc! all f 1 1es with the extension BAB giving 
v e r i f y p r o m p t s« U n 1 o c k a 1 1 f i 1 e s w i t h t h e 
e x t e n s 3 o n B A k. w 3. t o u t v e r i f v j:::< r o m p t s « U n 3. o c k 
M V F11... E o n u n i t. t w o :i a n d a 11 f i 1 e s n a m e d T E S 1 
o n t h e d e f a u 3. t u n 1 1 


NOTES 




l*JR I TE 


Write an area of memory to a tile- 


STATUS5 

U s e r rn e m o r v a t P A D :i. s u n t o u c h e d „ 


COMMAND FORMATS 2 


OPERATIONS 

"count 1 ' bvtes ot memorv at 

t h e s p e c i f 1 e d a d ^ e s s a r e w r 11 e n t o t. h e s p e c i f1 e d t < 1 e 

n o t a 1 r e a d y e N i s t , 1 1 i s c r e a ted* T h e f i 1 e i s 

closed after the write» In the second form, the memory block 

is written to the already open tiles. The file is left open„ 

The address can be specif red by either a number or a single 
w o r d I s u c h a s P A D) w h i c h r e t u r n s a n u rn b e r * 


W r t e t h o f 1 r s t 1 5 6 i: * y t e s o f m e m o r y a t a d d r e s s 


MOTESs 



v 1 D O E5 Sys to e m 



The following set of words make up the heart of the valDOS 
Note that all of the following words are in a special 
vocabular■ named DOS. Any word which uses one of these system 
operations must contain the word DOS in the definition, as it. 
is necessar ' to inform the: compiler where to took for these 
definitions. Since most of these commands are on the system 
level,, a brief description of how the system works is 

can {■ < 0 man i pi .< 3 9 .+' ed „ it must he opened -for 

A e bu and a status block are allocated for 

each f i 1 e has i1 s own f i 1 e 
cursor (which is pot ::i :>ned at the beginning of a file at open 

• 1 i a s o o i» ■ 11 s t o a 1 o c a t i o n w 11 h i n t h e 

* f r did the f i. 1 e, the byte po 3 . nted to by 
\v~r ed and the cursor is moved a byte deeper 

vt s wr i. 11 en t o t he f i 1 e„ i t r ep 1 aces 
cl the file cursor „ and the file cursor is 

. I. e i op en ed an d f i ve b y t es ar e wr i 11 en 
f. e bytes will be changed,, and the 

is closed, i„e«„ in 

. 3 d foe r educed to five bytes. By not 

3. s c 1 o s e d ? g r e a t e r 
va 1 DOS c:ommands <such as 
p e: f o r m a n e n d - f i 1 e p r i o r t o 

r e a d i n g a f i 1 e a n d 
w h e n r e a d i n g a f :i 1 e« t hi e f i 1 e i s 
and the closed. Generally when 
s or i pG! ad, *r it ten,, end—f 1 led, and then 
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DOS 

T h i s :i. s t; h 0 n a m 0 o f t h e v o c a b u 1 a r y w h i c h c o n t a i n s a 3.1 
of the f d.I lowing DOS system words,, DOS stands for Disk 
Operating System (not Software as some claim). Any word 
which c o r \ t a i n s o ne o f t h e f a 1 low i n g w o r d s m u s t. c o n t a :i n 
thi s word wi thi n i ts def 1 ni t i on s s mvword DOS 

DOS is IMMEDIATE. 


#ENTRIES - n 

A quan which contains the number of entries that 
matched the (wild) filename last checked by CHKDIR* CHKDIR 
r e tu r n s t h i s v a 1 u 0 a u t o m a t i c a 11 v7 h 1 s v a 1 u 0 c a n a 1 s o h e 
used to index the first H n” elements of the table pointed 
t o h y DIR T B L (b e 1 o w) „ 


#F- REE 

A q u a n w h i c h c o n t a i n s t hi 0 n u fin h 0 r o f f r e e d .i. r 0 c t o r y 
e n t r i e s :i n t h e 1 a s t d i r 0 c t o r y s c a n n 0 d b y C H k 0 T R „ 

#UNTRN - n 

A quan which contains the number of bytes left 
u n t r a n s f 0 r r 0 d i n t. h 0 1 a s t b 1 o c: h r 0 a d / w r i t e o p e r a t :i o n« T h i s 
v a t u e :i fii:. o n 1 y a c c u r a 1 0 3. m rn 0 d i a t e 3 y a f t e r t h 0 r 0 a d / w r i t e 
operation returns control to the c a 11 i rig routine,, 

(70PEN) $ - <f l>/0 

This routine checks to see 3 f the file specified by *> 

1 s o p e n. I f t h e o p 0 r a t i o n i s s u c: c e s s f \ x 3. f a f 1 a q :i. e 

returned along with the value one,, If this flag is 0„ the 

I f an er r or- oc c ur r ed , on 1 v a z er o :L s 



(OPEN) * ..- -Cad dr 

This routine opens the file specified bv it is 

P a t h b 0 1 w 0 e n 
If the open is successful,, a 

a c e 0 s s n u rn b e r . A 1 3 . s u b s e q u e nt o p e r a t 1 o n s u p o n t h 0 o p 0 n 

be sup pi i eci , 

successful open. the f i 3. e number and the transfer buffer 
a d d r" 0 s s a r e r e t u r n 0 d « I n m o s t c: a s e s« t h 0 t::« u f f e r a d d r 0 s s 

while the file number must be 
stored by the application^ File numbers a.re always greater 


LX 111 




valDOS 


(CLOSE) fl# - 

The (CLOSE) operation closes the data transfer path 
associated with the specified file number. The file 
buffer is flushed to disk if updated, and is freed for a 
subsequent open operation. If "fl#" is zero, all open 
channels are closed from access. This routine generates 
no errors. Illegal file numbers are? ignored. 


(ENDF) fl# 

Each open file has a file cursor which points to the 
next byte to be read or written. The "end file" operation 
marks the current byte as the end of the file. Thus if 
the file cursor points to the fifth byte of a 1OK file, 
the current byte and all successive bytes are lost, and 
the disk space is reclaimed. This is typically used just 
before closing a file that has been written to. This 
ensures that no "stale" data remains. The command ENDFIL 
uses this routine. 



(ENTER) S 

■he filename specified by T> is entered into the 
directory on the unit specified within the filename. If 
no unit is explicitly stated, the default unit (specified 
bv DF-LUN!) is assumed. A one is returned if the operation 

See DSKERR. 

This routine uses FNCON. (This routine is usually called 
"create". That name is already used in FORTH, however.) 


(TILL) 

deleted from the 

dir ectory on the unit specified w 11 hin t he f 11 ©name. If 

stated, the default unit (soecified 
A one is returned :i f the operation 
was successful otherwi.se a zero is returned. Bee DSKERR. 


(LOCK) 

The filename specified by f is locked so that it may 

if the operation was successful, otherwise a zero is 
returned. See DSKERR. This routine uses FNCON. 


L X 111 


< RDB) fl# - <b 1 >70 

1 he n r ead byt e' ! oper a1 1 on r eads the ne : t by t e f r om 
t h e f i i e w h o s e a c c e s s n u m b e r i s “ f 1 # ‘ 5 « I f a n e r r o r o c c u r s 
a zero i s returned; otherwi&e the byte a 1 ong wi th a one i s 
r e t u r n e d „ I f m a n y b y t. e s a r e t o t::« e r e a d , < R E A D) s h o u i d b e 

used if possible as that routine is many times faster than 
C E D B) - N o t e t h a t i f a r e a d 3. s a t t.e m p t e d w i t. h t h e f i 1 e 
cursor at the end of the file, an EOFERR error is 
g e n e r a t e d „ S e e 0 S K E R R » 


(READ) addr cnt 

This operation reads the nest "cnt" bytes of the file 
whose access number is “f1#“ and stores them in memory 
beginning at "addr"„ If an error occurs a zero is 
returned, otherwi se a. one i s returned* The qu.an #UNTRM 
coni: a i ns the number of bytes 1 ef t untransferred i n the 
e v e n t o f a n e r r o r „ S e si D 5 t. E R R , 


(REN) -&n $o 

This operation rename- the file $o to $n „ A one is 
r e t Li r n e d i f n o error o c c«* r r e d „ o t h e r w i s e a z e r o 1 s 
ret»irned „ 


(SPACE> cnt 

The space onerat1 on renositione the cursor of the 
file whose access number is M f 1 # H by the sinned number 
'' c n t 111 » T h e v a 1 u e ‘' c n t ' ' 

3276 7 « A1so note that the file cursor cannot he enacod 
past bvte no. 63 :i 53b of the file., If "cnt" is zero,, the 
space operation is ignored* A one i s ! r eturned f no error 
occurred otherwise a zero ie returned. 

(UNLOCK> 

The t i A enaflie spec :i f i ed by & i s un ! oc ted so that i t 
mav be written to. h 1 1 led 1 or renamed* A one is returned 
if the oper ation was successf 1 « i otherwise a zero is 

Th i s r out i no * isos KNi TIN, 


(WIND) 

The (NIND) command is used to position the file 
cursor at heainninc or end of the file., If "f" is one. 
t h e f i 1 e c u r s o r 3 . s r e w o u n d t o t h e b e c j. n n 3. n q o f t h e f 3 . .1. e ■ 
Ths a] Iows the f i1e to be re-r ead* If 7" i s zero« the 
f i 1 e u r s o r i s rn a y e d t o t T ? •: ~ e n d o f t h e f i. .1 e f o r : u.!. :< s e q u. e n t 
wr i 1 1 nq r effect i ng an append oner at i on, A one i s ret urneci 
i f the operation was successfi.N , otherwise* 
returned „ 





(WRB) 


b f 1 # 

The byte "b" is written to the file whose access 
number is "fl#". If many bytes are to be written to the 
file, (WRITE) below should be used instead, as it is many 
than (WRB). A one is returned if the 
operation was successful, otherwise a zero is returned. 
See DSKERR. 


(WRITE) addr 

The block of memory "cnt" bytes long beginning at 
memory location "addr" is written to the file whose access 
number is "fl#". A one is returned if the operation was 
successful, otherwise a zero is returned. See DSKERR. 


7D0SERR f err# 

This is one of three (see DOSERR, 7DSKERR) error- 
routines available at the system level. If the flag "f" 
is zero, the system error "err#" is generated,, Program 
control does not return to the word which contained 
?DOSERE, but to the word which called this word. For 
example, if an application calls (OPEN) and a 7DOSERR 
within (OPEN) generates an error, 7DOSERR will not return 

to the application, passing a 0. If the 
7D0SERR does not generate an error, program control will 

’DOSERR store-- the error value in the 
quart DSKERR. See the actual definition of (OPEN) for a 

? D 0 S E R R i s e s s e n t i a I l y 

a SWAP 0= IF DOSERR END.IF DROP 


7DSKEEE 

7DSKERR is used to propagate an error from one word 
to the next. It replaces the seauence DSKERR 7D0SFRR. See 
7D0SERR. 


?W ILD 

c a r d c h a r a c t e rs "? ‘ 1 
c a r d s a p p e a r e d „ 


a one if the last 
FNCON contains either of the wild 
A zero is returned if no wild 


BUFBOT - addr 






lowest memory 
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CHKDIR 

The - check-directory routine scans the directory on 
t h e u n i t s p e c: i f i e d w i t h i n t h e 1 a s t f i 1 e n a m e c o n v e r t e d b v 
FNCON for all occurrences of that filename* For everv 
match found (multiple matches are due to wild cards) in 
t he d i r ec tor y fi a d i rec t or v en t r y n umb er i s st ored i n t h e 
n e>? t a va 3 . 3. ab 1 e 1 oc: at i on of t h e rnemor v b 3. oc k po i n t ed t o b \/ 
DIRTBL* Thus if CHKDIR finds five occurrences of a 
f i 1 e s p e c ij t h e f i r s t f i v e e 1 e m e n t s o f D 1 RIB L c o n t a 1 n t h e 
directory entry numbers for those five mat dies.. These 
values can then he used in conjunction with the ENTRY 
command to access the files* CHKDIR returns the number of 
matehes* 


DFL. UN T 

A qu.an which contains the number of the default unit., 
‘his drive number is assumed if no drive specification is 
con t a 3. ned w i t h i n a f 1 3 . en ame c on verted b ' / F N C 0 M« f: au1 3. on * 
thi s cental ns 0 1 f DOS dr i ve 1 1 s the def aul t1 1 f DOS 

drive 2 is the default,, etc» (FORTH drive — DOS dri ve-1) 


DIFFER 

A quan which contains the entry number 
tree entry in the directors 3ast scanned 
routine* 


Of the ne;;t 
by the CHKDIR 



DI R'T'BL 

A w o r d w h i c h r e t» 1 r n s t h e s • .a r t i n g a d dr e s s o f a 6 4 
h v t e rn e m o r ■ - b I. o c! t h a t c o n f a i n s d 1 r • - c t. o K - e n 1 v n i 3 m h or s o f 
all files that matched the last filename checked by 
CHKDIR rout i ne.. 

DIRUP 

This marks the current directory as being updated so 
t h a t 1 .1 1 s w r 1 11 e n t o d i s! u p o n t h e n e >• 1 D B! ■ H... S c o m m a n d» 

DOSERR 

20OSERR * ? DSKERR) error 

r o u t i n e s a t t h e s v s t. e m 1 e v e 1, D 0 S E R R u n c o n d i 1 1 o n a 11 v 
generates the error Mhose err or number is “err#"* Program 
control cent! nu.es- two 1 e\ el s up : 1 nstead of the usual one) 
and a zero is returned - See 7D0SERR« 

DSKERR 

A ouan which contains the error number of the last 
DOS error that, occurred* See List of Errors hel ow« 


LX I II 
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DSKFLS 

A r d u tine w h i c h f 1 u shes t. h e c u r rent d i r e c: t o r v a n d 
•free space map it updated. All user defined commands 
shoui d end wi. th th i s command• See source 1 1 st i nq for 
p r e-def in ed comman d s. 


E M T E Y u n i t n - a d d r 

The entry comrnand r&turns the addre?ss of the "nth 1 ' 
entry in the directory on the specified drive unit. The 
16 byte entry has the following formats 


addr+Os 


addrfTs 
addr+3s 
addr+5* 

add r 1 3 s 


status 



bit 7s 

Fi1e deleted if set 



F :l. 1 e e n t r y v a lid if se t 


5 s 

Fi 3. e 1 oc k ed i f set 



F ; ' i 1 e r a n d o m i f s e t 




used) 









set 





1eft justified« b1 anT fi11ed 


I # a n y c: h a n g e s a r e m a d e, e e c it i n g DIE UP a n d D S KF L B 
wr i te t h ose r. h anqe s t o d i s • « 


w i 11 


Whenever a file is open* vk, a 1. .8 fovte transfer buffer 

The FL BLIPS) 

command returns the address of the file status block 
f o 11 pw i n q n f or mat i on s 


addr+ 0 s 

addr~128: 


(FORTH) sector currently in fi1e buffer. 
Number of t f te- i nto c:urrent sec:tor „ 

Ei! n t r v n u mb e r i r i t h e d i r e c t o r v a 

Non -or o - c ur r en t : ec t or i s up d a t ed „ 

(re serve d f or : Ean d om b1oci updat e flag. 
N u m b e r o l b y f o :: ? n t o f 1 1 e (u n s i q n e d ) . 

Address of 128 hte file buffer. 






f i ]. e 


associated 


FLFL 


f 1 # 

Thi s op©ration f 1 ushes the 
w :i. t h the f i I e ace ess number “ f 1 # n „ 


buffer 


FNCON * 

The? FNCON command takes the file specificAti on $ and 
conver ts :i t to di rectory f ormat ( i » e« u 1 ef t ius11 fied and 
blank filled)« It stores the It byte formatted filename 
a t t h e rn e? m o r v 1 o c a t i o n p o i n t e d t o b y F N F L D „ A11 w i 1 d 
c ar ds ar e con verted to que sfion marks„ t hus, "MY.? I IL t' 1 
wi 13. become "HY7F1L ?7 •? ? n „ Add:!, t i on a 1 1 

s- p e c i f i c a t :i o n i s c o n t a i n e d i n t h e f i 1 e s p e c i f i s 

determined and stored in the quan UNI ft If no drive 

spec i f i cat i on was supp 1 i ed,, the def aul t u.n i t (i n DFLUNT) 

where the character ,! s" is stored in the 
quan FNSWCW* If no sou. tch is found, a zero is stored I. n 
F NSWCH» If an - '/ wild boards appear in L h c file 

s p e c i f i c a t :i. o n , t h e q u a n ? N I L D i s s e t t o on e o t h e r w i s e 
z e r o i s s t o r e d „ I f n o e r r o r s w e r e cl e t e c t e d ,• a. o n e i s 
r e t u r n e d o t h e r w :i. s e z e r o.. 


F NFLD 

A nointer to an e1 oven bvte 
c on t a :l n s t h • I. i e n a m e I a s t f o r m a 11 e d 


stor age 
b FNCON,, 


are-::' 


who r h 


FNSWCH 

present 


s 

q u a n wh i ch c on t a I. n s t h o AB( I 1 v a 1 u t•? 
3. ast f i I en a me c: on vert eel by FNCON - 
F N S 14 C H c o n t a i n s z e r o« S e e l ;:: M C 0 N » 


no switch was 


FSMAP 

A word which returns the address of the current free 
space map* 


FSMUP 

! h e F B N U P c o m m a n d rn a r i s t h e c u r r e n t f r e c s n a c e rn a p a s 
beinq updated» 


A c o n s t a n f w h i c h c o n t «. i n s t h •: m a m i m u m n u m b e r o f f 3. 3. e s 
t h a t c a n b e o p e n a t a n / q i e n “ i m e. f h i s I* < i : a d e f a«\.11 
value of four, if this constant * charmed f 

be comp3. eteI rel oadccl„ 







T ADR 


After a block read/write operation, this quan 
contains an address one byte higher in memory than that of 
the last byte transferred. This can be used to determine 
how much data was transferred in the event of an error. 


UNIT 

A quan which contains the unit specification of the 
last filename converted by FNCON. Note that this is a 
FORTH unit (x. e » 5 FORTH unit - DOS unit -1) „ 


WRKSPC - ad dr 

A quan which points to a 128 byte scratch area used 
by many of the system words described above. This is free 
for user applications between val DOS system cal 1s. 
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s a 1 D 0 S C a m m a n d S u p p a r t 0 g r d s 


70MDERR n err# 

Like 7D0SERR ? but prints the error message?, clears 
b o t h s t a c k s, a n d a b o r t s p r o g r a m e x e c: u t. i o n t h r o u q h Q UI I , i f 
the status flag "n" is zero, If "n" is true, 7CMDERR 
r e t u r n s t o t h e c a 1 1 i n g w o r d „ 


7SYSERR n 

Li ke 7DSKERR, but aborts through 7CMDERR if ,! n H is 
£ero, If 11 n" i s non-zero, 7SVS E RR ret.urns to the ea I. 1 inq 
wor d, 


7WRGARB n 

Thi s i s an abbrevi ati on f or WRGARG 7CHDERR 


00 Mk }vj 

I h e C 0 N F N r o u. t i n e t. a k e s t h e d i r e c t o r v f o r m a 11 e d 
filename at M addr 11 (usually FMFLD) and converts it to a 
string. The drive spec:? f i c at i on "unit" :i s attached to the 
beginm.no of the f* ename < i * e * « uni t 1 would generate 
” D1 s *’ ) j 


CMDERR err # 

0 M D E R It u n c o n d i t i o n a 1 1 y g e n e r a t e s t h e 
e r r a r s p e c i f i e d .b \ - ' 1 e r ? # • ! , 


ECHO 

When echo is ON, ail files bei no H.OADed welt! be 
echoed to the current out put: device (s) * When echo is OFF', 
n o o u t p u t i s o e n e r a t e d , 


FWORD 

Read the nsv t tec t characters from the input file 
whose file number is :l. n the uuan F LFI... # (FLOAD i. m tial izes 

FLF'L#) un t :i 1 a del •miter 5 c " i s vound, storing the packed 
e h a r a c t e r s t r i n q h o g i n n i n g a t t h e d 3. c: t i o n a r v b u t f e r H E R E« 

c o u n t i n t h e ' f i r s t b y t e, 
followed bv the character* and ends with two or more 
h 1 anks„ Leadi ng o».»rrenc:es of "c" are i gnored » Note 
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GETVAL $ - n 

I f $ is t h 0 n arne of a d i c t i on ar y wo r d, t h 0 wor d i s 
executed and had better return a single value. If $ is 
not found in the dictionary, it is assumed to be a number 
and is converted leaving the number n. GETVAL is used so 
that addresses may be stated explicitly, or by reference 
(PAD, HERE, etc.). 


GETARGS - CS IJ/O 

T h i s r cd u t i n e c o n v e r t s t h e n e x t n o n - b 1 a n k s e t o f 

characters in the input stream to a string„ If a set of 

n on—b 1 a rt k c h a r a c t e r is is f o u nd, i t 3. s r e t u r n e d a 1 o n q w i t h a 

on e„ I f n o set i s f oun d,, a zero i s r et ur ned. 


GET ARB $ c C$1 $2 l>/{* OJ 

T h e s t r i n q $ i s divided i n t o t. w o par t s, b r o k e n a t t. h e 
first occurrence of the character "c". If the character 
* ‘ c ' 1 is f o u n d 3. n $, t h e 3. e f t m o s t p o r t i o n o f $ is ret u r n e d 
3rd on stack, the rightmost 2nd on stack:,, and 1 on top. If 
"c" is not in the string, the original string along with 0 
is returned„ 





Veil D0’:;> 


Sv b tern_Error§.< a 1 1.are C0NSTANTs) 


AMBNME - n 

A m b i g u o u. s t i. 1 e n a m e« T h i s e r r o r i s q e n e r a .1 1 y i s s u. e a 
w h e n a f i I e s p es c c o n t. a i n i n g w i 1 d cards i s p a s s e d t o o n e o f 
the primitive file operators like (OPEN) or (KILL)* 

BADFL# 

B a c;l f i 1 e n u m b e r « T h e e r r o r i s g e n e r a t e d w h e n a f i I e 
n u m b e r d o e s n o t I i e i n t h e r a n q e 1 < f 1 # M A X F L (d e f a»11 
of four)* 

BADFSM - n 

B a d f r e e s p a e e rn a p „ T h i s i s :i. s s u e d e h e n t h e n u rn b e r 
free vectors does not match the true number of free 
s e c t o r c » I f t h i s e r r o r i. s r e p a r t e d « a n e w d i s k s h o u 3. d b e 
made and al 3. f i l es should be transferred to this new disk 
using COPY or FMOVE. 

BADNME 

Bad f:liename« The filename passed to the system 

a n i 11 e q a l c: h a r a c t e r ? o r w a s t o o 1 o n g,, 
File names can pnl / contain the letters “A" throuqh “Z" 

c a r d c: h a r a < t e rs “ i' ‘ f a n d " % H a r e a I s o a 1 1 o w e d * 

BADIJNT 

dr i ve spec i f i c: at i on » A dr i.' e rn Amber 

encountered that *d:icf not lie in the rang-* 1 unit 4„ 

DI RFlJL 

no more room in the 
d i r e c t or I : :i I. 1 s a me * i n wan t ed f i i. e s and t r • t h e on - j• a t i on 

aqai n , 


DSKFUL 

There are no more free sectors on the 

a n id t r ' / t h e c • p e r a t i o n 

aqain« 

EOFERR 

End of file has been reached„ Th os error general 1y 
results 
mar k , 

FLDWE 

FLEXST 

F i 1 e a 1 r e a d y e m i s t s.. 
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- n 

File is not open. Use the OPEN command and open 
tile. This error should only occur when using the 
p rimitives 1ik e ( SPACE ) an d < WI ND >. 


the 
t i 1 e 


FLOPN 

File is open. Use the CLOSE command to close the 
appropriate tile. See OPEN? 


FL.TBG 

File is too big. This error is usually reported by 
the tile edit w h e n t h e r e i s n o t. e n o u o h f r e e rn e m a r y t. o 
e d i t t h 0 f i 1 0„ B re a k t h 0 f 1 1 e i n t o t w o p a r t s* o r u s e t h 0 
F 0 R (B E T c 0 m m a n d t o f r 0 0 s o m e rn 0 rn o r y,, 

FLWPRT 

t i 1 e :i s wr i 1 0 pr ot ec: t ©d < 1 oc: k©d) « Use t h 0 UNLOCK 

command and perf orm the 1 ast operat i on agai n„ 

TMFOPN 

To9 many f i 1 es open. F'or each f i 10 open , a f i 1 e 
buffer and a file status block is allocated,, There are a 
1 i mi ted number of aval .Table buffers (determined by the 
c on s t a ri 1 !‘iA X F L..) « 1 f a 11 h u f f er s a r e b e 1 n g u s ed a n rd an 

open operat1 on 1s attempted ? this error wi11 be generated« 
U se t h e CL 0 SE c: omrn a n d t. o f r e e a b u f f er « 


WRSARG 

Bad/no argument list. This is Generated when a DOS 

c o m m a n d e x p e c t s a 1 i s t o f a r g u m e n t s a n d n o n e i s s u p p 3. i e d „ 

T h i s i "H- a 1 so g en er a t e d wh en t he w r onq n u rnb e r or t vp e D .f 

a r q u m e n t s i s s u p c* 1 1 e d » 










A.n o t e g n Q U A N _ s t r u c t u r e s 


The "quart" is a new FORTH data structure,, developed at 
Valpar, and is used in this package. Quarts were devised to cut 
down on wasted memory and runtime encountered when using the 
"variable" data structure. Quans work as follows; (Advanced 
users may want to follow along in the source code for these 
structures also. 

Defining a quan; 

QUAN BINGO 

Note that quans do not take initial values. This form was 
chosen to allow for simpler upgrading to target.-compi I ed code 
later on. 

Giving a quan a values 
1234 TO BINGO 

Note that since TO is immediate, "TO BINGO" compiles to only 2 
bytes instead of the 4 bytes that would be required if BINGO 
were a variable <i.e., BINGO 1 >. 

Getting the value back from a quan; 

BIN60 

Simp1v saying the name 
Stack. 

constants. BINGO above 
t h e 4 b v t e s r e q u i r e d 
BINGO $>> . ' 

Getting the address of the data in the quan; 

This will leave the address of the first byte of data in 
BINGO on the stack, or compile the address as a literal if 
encountered dur i. ng compi 1 at i on . 

useful for a variety of purposes in general programming and in 
interfacing to machine language routines. 

Advaneed u ser s: 

toward 

is proper for target—compi1ed 
applications. We expect to support both "state-smart" and 
"non-state-smart" versions of various words, as appropriate for 
different users» 

Note that. whi 1 e 

the first version is faster by one primitive nest. 

The most significant internal feature of a quan is that it. 
has .;!• cfei's instead of iust the one common to most. FORTH words. 


of the quan will leave its value on the 

quans act. like 
also compiles to only 2 bytes instead of 
to fetch it if it were a variable <i.e., 



! h i s i n i 1 .1 a I f o u r b v t e d i s a d v a n t a q e i s o v e r c o m e a t t h e s e c o n d 
u. s e o f a q u a n , f a n d s o p o s e s e s s e n t i a 13. y n o p r o b 1 e m« W h e n a q u a n 
i s not. pr b eeded by "TO" or M A‘!"" 9 th© first c:f a <quan5)) i s 
c o iTi p i. 1 e ri i n „ I f t h e q u a n i s q r e c © d e d b y ’' T 0 11 fi t h e s © c: o n d c f a 
(quan ! ) is compiled in» And if the quan is preceded by "AT” * 
the t.hi rd ct a. (quan ) i s:- compi 1 ed i nto th© dieti onary« 



HANDY REFERENCE CARD 
i ralFORTH SOFTWARE SYSTEM 


vai 


File Editor Command Summary 

Below is a quick reference list of all the commands which the video 
editor recognizes. 

Entering the Edit Mode 

Re-edit the last file edited. 

WHERE 

The default is five. 


Cursor Movement 




Ctrl t 'love cursor up one line, scrolling the file down one line 

Ctrl ^ Move cursor down one line, scrolling the file up one line 

Ctrl 4- Move cursor eft one character, wrapping to the right edge 

Ctrl -* Move cursor right one character, wrapping to the left edge 

RETURN Position the cursor >t the beginning of the next line. Insert 

Ctrl TAB Clear tab stop at current cursor ocation 
shift TAB Set tab stop at current cursor location 

Editing Commands 

Insert one blank at cursor location, losing the. last character 

Delete last character typed, if on the same line as the cursor 

Buffer Management 

Take the current buffer line and copy it to the current 




Ctrl 





DEL 






Ctrl 


Ctrl 



Ctrl 


Scrolling/Saving 

Scroll the edit window up 16 lines within the f11 

file. 


Special Keys 






Subcommands 




ST <retum> 
EN <return> 
FL <return> 

PS <return> 


IF filename 


the end) 
















































































The FORTH language is a very powerful addition to the 
Atari home computer- Programs which are impossible to write in 
BASIC (usual 1y because of Iimi tatione in speed and f1 &x ibi1itv) 

mastered the BASIC language., making correction- or additions to 

!he v i d e o e d i t o r d e s c: r i b e d h e r e 

Similar to 
op er a t i n q sy st em , t hi i s 
editor makes it possible to insert and delete entire lines of 
code, ineert and del etc si ngle characters, toqgle between 
insert and replace modes, move entire blocks of text, and much 
more. 



Fi1e Editor 


Overview 

This editor is a powerful extension to the valFORTH system 
designed specifically for the Atari 400/800 series of 
microcomputers. The main purpose for this editor is to give 
the FORTH programmer an easy method of text entry to DOS file 
for subsequent compilation. For those already familiar with 
the val FORTH 1*1 screen editor,, this editor is very similar in 
f u n c 1i o n, In fa c t ? a 1 I o f t h e c o m fri a n d s f o u n cJ i n t h a t e d i t o r 
(except ctrl-A) are supported in the file editor. More 
importantly, many additional capabilities have been added to 
t h i s e d i t o r« T h e y a r e s 

Tab stops can be set /reset. 

8 p 1 i c e (u n s p 3. i t) i s n o w s* u p p o r t e d 

3) G1 o b a 1 p a 11 e r n s e a r c h e s 

4 > A r e p e a t f u n c: t i o n w h i c h r e p e a t s t h e n e x t 

command / k e \ t yped un t i 1 a conso 1 e I ey i s pr essed 

The editor has four basic mode of operations 


11 a 11 o w s e n term q o f n e w t e > ■; t i n t o a f i 1 e a s 

The set of single strode editing commands is a superset of 
the functions found the in MEMO PAD function of the standard 

I n add:L t i on to cursor movement, si ngl e 
character i nserti on/del eti on , and 1 i ne i nserti on/del eti on f , the 

editor supports a clear.to-end-of ~i i ne function,, a split 

c o m m a n d w h i c h s e p a r a t e s a s i n q 3. e 3. i n e i h t o t w o 3. i n e s, 3. t s 

complement splice (unspl i t) , glob \l searches,, and many other 
f e a t u r e s u s u a 3. 1 v f o u n d o n 1 y i n h i g h e r q u a 1 i t y w o r d p r o c e s s o r s , 
and almost never in file editors,' 

s t o r a q e b u f f er w h 3. c: h 
a 11 ows thie user to move, rep 1 ace,, and i nsert up to •:>2:0 1 i nes of 
text at a time. This feature alone allows the FORTH programmer 
to easily reorganise source code with the added benefit of 






Ft 1 e Ecli tor 



! < n o w i n q t h a t r e - 1 y q i n g m :i. s t a k €* s a r e a v o i d e d . l J s a q e h a b s h o w n 
that once edi t~~huf fer management i s I earned, si gni f i cant typi nq 
and programming time can be saved* 

F or those t i mes when not pr ogr amfni ng , the edi t or can 
a s a s i m p J. e w o r d p r o c e s s o r t o r w r 3 . t i. n g 1 e 11 e r s a n d 
•f :i. .!. 1 i ng other documentation needs. Perhaps the best method tor 
.learning how to use this powerful editor is to enter the edit; 

t. h e f o 11 o w i n g c o m m a n d s a s t h e v a r e 
enc oun t er ed i n t h e r ead i n q . 

MOTE s 


•his editor can be used to enter assembly language source:, 

• " ^ c 1 ° r &n v o t bf e r t e x t. o r ien t. e d d a t a « 

• d i t i on a .1. 1 y , t h i s ed i t or c: an ed :L t f i 1 es c r eat ed f r om 

o u r c e s s h o w e v e r ;f o n 1 y t h e f i r s t 38 c h a r a c t e r e o f a 3. 3 . n e 

w i 1 j. b e r e t a i n e d ,, 




File Editor 


L oa d i n g.a n d E n t er i n g t h e.E r i i t g r 


To load the editor., first load valDOS as described in 
"Strolling Through va 1 fifes". No: t, insert, the valDOS II disk 

to load. The edit mode .<=• initiated using the EDIT command. 

The DOS file "infile" is loaded for editing. When all changes 
have been made and the file j s cared. the modified text is 
written to the fiIf "outf i le" , if supplied, otherwise it is 
written back to "infile". 

/alDOS II disk and types 

*me i n at ion which can be ignored 
1 wait for the return key to 
be typed. After Dressing he re' irn f the display should 

look like fie 

a : n g 1 e 1 i n e. i n cl i c: a t e s w h i c h 
shown is the size of the 
edit buffer -decribed .tcri . In tins e ample., the buffer is 

i r low is hiown as the heading 

text within the speci e It . 'hi. window ;; 38 characters 

section ent■t1ed 
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Files HYFILE 


#Bufss 5 


e 

( R o u 1 1 n e s FI i... E ~ IT 

Th e f o 11 o w i n q r ou t i n e w i 11 
t r a n s f e r a s p e c i f i e d r a n q e o f 
F 0 R T H s c r e e n s t o a f i 1 e o n 
a D 0 S f a r m a 11 e d d i s k , 

F o r m a t s FIL. E -1T :j s t , 3. a s t,, f :i 1 e n a rn e 

FILE-IT 10,: 20MYF ILE 

Note that DOS commands tend to be 
3. d n q !::«e c a u s e o f e r r o r c h e c k :l n q a n d 
p a r a m e t e r p a r s i n q* 




LL re-edit last file 

eci i ted . 11 f un c t i on s i d en t: .1 c a 1 1 

except that no file name- need to be specified,: 

Em amp 1 e s \ r et « r e-ed i t MYF I LE 


n f :!. 1 e 
command 


> 
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L g a d i n q a n d E n t e r i n q t h e E d i t o r 


T o I o a d t h e e d i t o r , i r s t 1 o a d v a 1 D 0 S a s d e s c: r i b e d i n 

and list screen 1 „ This should tel 1 you exactly which screen 
to 1 oad» The edi t m o de s i ni ti ated usi nq the ED11 command, 

W h c n a j. .1. c h a n q e s 

have been made ana the file is saved, the modified text is 
written to the file "outf Ie% if supplied, otherwise it is 
wr i 11en back t a ” i nf i 1 e"» 

disk and types 

m 3. n •: i - n a 1 . >n wh i c h c an b e i gn or ed 
for the time being,, a hon it will, wait for the return key to 
be typed. After nress•; g \.he return key, the display should 

s * n q 3. e 1 i ne, i nd i c: at es wh 3 . ch 

> s h o w n 3. s t h e s :» z e o f t h e 

edit buffer ■deeribed 1 iter) , In thi e ample, the buffer 

low ib known as the heading 

at a:; ns 16 1 1 nes of 

tea t within the specified i If . It w:i pciow b 38 characters 

advanced edit me: ar v pa.fcr detail in the 

sect i on ent :i 11 :! 
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LL 


File: MYFILE 


#Bufs: 5 


© 

< Routines FILE-IT 

I he f ol 1 bwi ng rout, i ne wi 11 
1 .. t «t !S»+er a soeci f i ed r anqe o f 
FORTH screens to a file on 
a DOS formatted disk. 

Format: FILL-IT ist,1ast„f 1 1ename 

f ' 1 L F -1T 102 0, M Y F 1 1.. E 

Hote that DOS commands tend to be 
long because of error checking and 
p ar ameter p ar sin a „ 


F i a . i 


re-edit last, file 


Th i s 
edited . 
except that 


is used to re-edit the "l ast 
functions identical 1y to the EDI) 


command 


< r et 


Examp1es 


< re.edit MYFILE > 
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WHERE -find location of error 

when c ompi1ing cod e, a compi1 ation er r or occ u r s, 
the WHERE command will enter the edit mode and position 
the cursor over the last letter of the offending word. The 
word can then be fixed and the file saved for subsequent 
compilation using the "FLOAD filename/C” command. 


#BUFS set buffer length ( Mines - ) 

to specify the 

length < i. n terms of number of lines) of the special edit 
storage buffer. The power o-S the edit buffer lies in the 
number of lines that can be stored in it. Although the 
default value is •i e practice shows that at least 16 

32c* whnch is enouoh to hold 


. INFO 

an edited file is not saved to 
supply al 1 the necessary 
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I he following sections give a detailed description of a 13. 
c: ommar? d s wh i c: h t h e v i d eo ed i t or r ec og n i z e s » A q u i c k r e f e r en c e 
co mm a n d .1 i s t c: an !:::»e f ou n d f o 1 1 o w i n g t h e se d esc r i p t i on s« 


Cursor Movement 


W h e n t h e e d i t m o d e i s f i r s t e n t e r e d v i a t h e E D1 ! c o rn m a n d „ 
a cursor is placed in the upper lefthand corner of the screen„ 

a s a w h 1 1 e b 1 o c 1 a n d m a y e n c 1 o s e a h 1 a c }• 
1etter» Whenever any key is typed and it is not recognized 

c orn\rri a n d i t i s p 1 a c ed :t n t h e t e :■t w i n d ow wh er o t h e 
L i k e w i s e« a n y j. i n e f u n c t i o n s (s u c h a s d e ! e t e 
1inework on the line where the cursor is founds 


u Ctrl v * Ctrl - B ctrl E movfe.cursor commands 

! o c: h a n g e t h e c u r r en t ed 3. t 1 i n e or c h a v a c i . er „ on e o f 

a.r e k n own a s c ur sor 
c omm an d s« 1 h e v a r e t h e f ou. r i e v s w i t a.r r o w s on t h e m , 

11 > e s e k e' *? i <: . / e t < i e c u. r s o r i i« t h e d i r e c t.!. o n s p e c i t i e d b v 

t1"! e a r r <• :» w t«n t h e r> a r1 c u 1 a r ! =: e v o r e e s e d 
however » when thi e i s r«<:1 th < ■ s « fc 

Si mi 1 ar 1 v, i f the cursor is nosi ti oned on the 
1 e i t m o s t e d q e a n d t h e 1 ’ c u r s h r -••• 1 e f t ’ 1 
cursor wx % 1 

’ 1 c: u r s o r ~ r i g h t ‘ w x ! 1 \ -«r a p t o t h e 1 e f t e d n e, 


next.J i rie command 

c. h a r a c t er • • f t h e n e: i ] i n p * 
a t t h e e n d o f t h e f i 1 © „ 


t o t hi e r :i g hi t o f t! < e c u r r e n t c u r s o r c h ar a c t e r « 


L >: 1V 
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Ctrl TAB 


c 1 e a r T A B s t o p 


Clear the tab stop at the current cursor location* 
The default tab stops can be reset by issuing the RT 
subcommand 


shift 3AB 

a tab stop at the current cursor location* The 
default tab stops can be reset by issuing the RT 
subcommand * 


Ctrl L 




using the PS subcommand,. Patterns can be up to 30 
char ac t er s i n 1 enq th« 


The put s t he ed:! t or i n t o t he subco rnm and m ode« See t he 

a 3 i st of aval 3. abl e 

commands« 


NOTE: 


Many commands i n the edi tor wi 13. ”mar i ! the f 1 1 e as 
si mpl e cursor movement does no" chanc she t 1: wi nclow i n any 
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E d 1 ti n q C o m m a n d s 


Editing commands are those commands which mod it the tr:< t 
in some predefined manner and marl the file as updated 'or 
1 ater savi rig * 


c h a r a c t e r i n s e r t c o m m a n d 

When the " i nser t-char ac ter 1 ’ command i s g i ven ,• a bI an k 

c h a r a c f e r 1 s i n s e r t e d a t t h e c u. r r a n t c u r s o r 1 o c a t i o n « I h e 

c h a r a c t e r s t o t h e r i q h t a r e 

P 1 •••'• - h ® d t o t h e r i q h t v o n e c h a r a c: t er p os j t .i on 

i ns e r t e d b 1 a n! t h e n b e c o m e s t h e c i J r r e n t c u r s o r 

I h-i s i s the 1 og ca 1 comp 1 e m ent t.o the "do ete~char act er M 
« o m m a. n cl d e s ; : r ? !::> e d b e 1 o w 


Ctrl. DEL 


d e 1 p f e c h a r a c t e r a m m a n d 


current cursor character i s removed « and a'i. 1 » bar actors to 

o n e p a s i 1 1 o n , t h u. r:: n i v i n n a ’ ’ s q a a z e 1 ‘ 
c a I :i ad "c 1 os,:» n g n a J. i ne« 

t o 

1 ' i n s e r t - c o m m a n d * 1 d e s c r 1 b e d a b o v e« 


! i no 

a b a v e i t* I f t h i s c o m m a n d * s a c c :t d e n t a i 1 >• t y p e d « t h e 

11 oo p s* ’ c o m m a n cl (c t r 1 0) d e c r ;j h a d j a t c: r e a n h e * * s a d t o 

r* e c o v e r f r o m t h e m i s t - • . A 1 s o s e e t h e 41 f r o m b u f f e r ' 

c: omman d d es-c r 1 b ad i n r h e b e<::: t :• c :>n on uf f *: -r - n an g.. rnen 1 f or 

c om p 1 e rn e n t t o t h a 1: 1 i n e —d a 1 r . .. a '' c o rn rn a n cl cl c s a r i b e d b a 1 o w* 


L >: IV 
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s h i f t D E L. 3. i n e delete c o m m a n d 

The "line-delete" command deletes the current cursor 
1ine. If th1s command is accidental 1y issued, recovery 
can he made by issuing the "oops 11 command <ctrl-0) 
described later* Also see the "to-buffer" command 
described in the section on buffer management for a 
si mi 1ar command * The “delete~line" command serves as the 
1 og i ca 1 c:omp 1 emen t t o t he n 1 i ne-i nser t '* command * 


c t r 1 H e r a s e t. o e n d o f 1 i n e 

7 h e ” H a c k ! ' c o m m a n d p e r f o r cri s a c 3. e a r ~ t o - e n d o f -1 i n e? 
f u n c t i o n * T h e c u r r e n t. c u r s o r c: h a r a c t e r a n d a 11 

c h a r a c t e r s t o t h e r i q h t o f 1 1 o n t h e c:: u r r e n t 3. i n e a r e 
b 1 an k f i 11 ed„ All char ac t er s b 1 an ed ar e 3. ost„ The 
"oops" command described later can be used to recover from 
a n a c c i d e n t a 11 y h a c k: e d 1 i n e« 


ctr 1 I i rjsort /"rep 1 ace toga3 e 

k:ey t yped wh i c h i s not 
r e c o q n 1 z e c 3 Id y t h e e d i t o r a s a c o n t r o 1 c o m m a n d w 111 r e p 1 a c e 

i t s e l f * T h i s i s;- t h e 

standard replace mode* Normal • vy if one wanted to insert 

a c h a r a c: t e r a t t h e c u r r e n t 
character 

room for 

a c t i v at e i t a n d t ? > e c r s«::« r w i 3 b J i n i , i n d i c a t i ng t h at t h e 

mode, al1 

edit commands Ceycept BAG! below) function as before* 
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dele t. e p r e v i o u s ch a r a e t e r 

The BACKS key behaves in two different ways, 
depending upon whether the editor is in the insert mode or 
in the replace mode. When issued while in the replace 
mode, the cursor is backed up one position and the new 
e u r r e n t c: h a r a c t e r i s r e p 1 a c e d w i t h a b 1 a n k „ 1 f t h e c u r s o r 

is at the beqinning of the 1ine, the cursor does not mo\e, 

but the cursor character is still replaced with a blank 

I f t he ed i t or i s i n t h# i nser t mode. t he e:u.r:: or bac k s 

u p o n e p o s i t i. o n ,• t h e n cj e .1 e t e s t h e n e w c: u r r e n t c u r s o r 

character and then closes the line. 

t h e c u r s o r r e m a i n • :l n t h e 
^ u m e p o s i t i o n , t h e c u r s o r c h a r a c t e r :i s d e 1 e t e d a r? d t h e 

1 ino elosed, 


NO 0 : 5 

the file in some 

manners, the file is marked as having been chanqed, Thi s to 

"quit" command descr1 bed 1ater alIows one to abort 
session so that ma.ior mistakes need not be : a c 
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B yt £ f e r M a n a g e m e n t 





Much of the uti1ity of the f11e editor 1 1 es in its abi11 tv 
t o t e rn p o r a r i 3. v s a v e t e x t i n a v i s i b 1 e b u f f e r . T o a i d t h e u s e r ,, 
it is possible to temporarily send text to the buffer and to 
later retrieve it. This storage buffer can hold as many as 320 
lines of t ext simu11aneou s1y„ Th1s buf f er is viewed t h rou g h a 
5 line " p e e p h o 3. e ' 1 v i s i b 3. e a s t h e 1 a s t w i n d a w o n t h e s c r e e n „ 

IJ s i n q t h i s b u f f e r , i t i : p o s s i b 3. e t o d u p 3. i c a t e,, rn o v e f a n d 
easily reorganize text, in addition to temporarily saving a 
line that is about to be edited so that the original form can 
be viewed or restored if necessarv* The fallowing section will 
e x p 1 a i n e x a c 11 y h o w t. o a c c o m p 1 i s h e a c h o f t h e s e a c t. i o n s« 


Ctrl 

7 he *' t o-buf f er ' 

3. i n e, b u t u n 3. :l. s e t h e 

is lost, this command mover the ^peephole' 1 down and copies 
This line is 

r o 11 e d u p o n e a c: h o c :«::: * * r r e n c: e o f 1:1"*} i s c o m m a n d s o t h ax t 1 1 m a y 

be used repeated.!', without the 1 oss of stored text« 

; b p o s- i 1 1 o n e d o n n i n t h 

c o m m a n d i s i. s s u e d t w i c e, t h e f i n a 3. r e s u 11 w 1 13. h e a s s h o w n 

in figure 2« 


command does ex act 1 y the opposite 
c o m m a n d d e s c r i b e d a b o v e. 11 t a i =: e s t h e 

i n e r t s :s t b e t w e e n t h e c u r r e n t. 
cursor line and the n<: above .1 „ cur sor line and 

all lines below it are moved down one Aino„ If the cursor 

o f t h e a b o v e s c: r e e n d i s p 1 a y a n d t h e 
"fram-buffer M command were A sated twx ce, the display shown 
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F i le: MVFILE 


#Buf bs 5 
_____? 


current 


( R o u t. i n e; FIL E -• I I 

Th e f o11owinq routin e will 
t r a n s f e r a s p e c :i. f i e cl r a. n q e o f 
FORTH screens,to a file on 
a DOS format.ted disk. 

! il 

Note that DOS commands tend to be¬ 
long because of error checking and 
p a r amet er p ar s i n q. > ; 


s FILE-IT DOS < — ) 

BE TAROS 7WR8ARB 44 BE TARO 7WRGARG 


! ILE — IT 1 st.. 1 ast, f i 1 ena.me I 
current I FILF -1 T 10, TU, MVFILE 
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The f ol 1 owi ng rout i ne will 
transfer a specified range of 
FORTH screens to a file on 
a DOS formatted di.sk. 

i l 

Note? that DOS commands tend to be 
1 o n g b e c a u s e o f e r r o r c h © c I- i n g a n d 
par ameter par sing„ ) { 

» 

FILE-IT 10.20,MYFILE 

s FILE-IT DOS ( — ) 

*:________- 


For mat s FILE~ 11 1 st , 1 ast ? f i 1 ©n ame 




The "cop^-ta—bufter 1 

1 i n e a n d d u p 1 i c a t e s i t, s e n d i n q t h e o p • •-* t o 1: h e fo u f f © r « 
T h e c: li r s o r 3. 4 , t hi e n m o v © d d o w n o n e 1 i n e „ T h i s c o m m a n d s 
t u n c 13. o n s i d e n t i c a 3.3. y t o t h © M t o - b u t •fer" c a mm a n d d e s e r 3 . b e d 
©xcept that the current cursor 1:» ne i s N0 f de 1 eted 


c: t r 3. 


U 


c o p y f r o m b u f f e r 


T h e " c o p y - f r o m - b u f f er" c o rr^ rn a n d r e p 3. a c e s t h e c: u r r © n t 

3. i n e w i t h t h e c li r r e n t b u t f e r 1 i n ©« T‘ h i s c o m m a n d 

command 

d © s c: r :i b e d a b« o v e ? e x c: © p t t h a t t h e b u f ter 1 i n e i s n o t. 

i n s e r t e d i. n t o t h e t e x t w i n d o w, i t m e r e 1 y r e p 3. a c e s t h e 

c u r r e n t c u r s o r J :i. n ©« T h e '' o o p s ! ' c o m m a n d d e s c: r 3. b © d b e 1 <:::« w 
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c a n b e u s e d t o r e c o v e r f r t :« m a c c i d e n t a .1 u b a g e o f t h i s 
command„ 


ri R roll buffer 

The "rol1 -buffer " command moves the buffer "peephole” 
down one line and redisplays the visible window,, If the 
b u f f e r w e r e t h e m i n i m u. rri f i v e 1 i n e s i n 1 e n g t h« t h e b o 1t o m 
f o i 1 r 1 1 n e s i n (; h e w i n d o w w o u 1 d m o v e u p a 1 3 . n e a n d t h e t. o p 
line would "wrap" to the bottom and become the current 
buffer line. If there were more than five buffer lines* 
the bottom four lines would move up a line,, the topmost 
1 :i. n e w o u 1 d I:*/ e p u. s h e d u p b e h i n d t h e p e e p h o 1 e „ a n d a n e w 
buffer line coming up from below the peephole would be 
d i s p 1 a y e d a n ci m a d e c u r r e n t. !• o r e x a m p 1 e, i f t h e b u f f e r 

' e r e f i v e 1 i n e s 1 o n g a n d c o n t a i n e d s 






> 



( 

What':" 





Wh en ? 





Where - ':’’ 


Current.« 









f 1 q „ 

the "rolj 

-buf f or " command o :i. yes: s 



( 

What? 




( 





< 

Where •’ 

) 



< 


) 

Current r, 



Who? 

) 









b a c k - r o 11 - fo u f f e r c o m m a n d 

T h e " b a c k - r o 11 - b u f f or" d o e s: e x a c 11 v t h e o p p o s 3. t e o f 
the " rol 1 -buf f er " command do: scr i bed above ,, For ex amp 1 e. 
if given the 

command would q:i ve the buf ter shown in f inure 5. 
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Ctrl C clear buffer line command 

The "cl ear-buffer-line" command clears the current 
buffer line and then "back-rolls'* the buffer so that 
successive clears can be used to erase the entire buffer- 


NOTE: 


Any of the afoove c:ommands whi ch change the t e>j t wmdow 
w:i 1 3. mar k the file as updat ed » Those commands wh i c:h a 1 1 er on 1 v 
the buf f er wi ndow C suc:h as the? "ro 11" command ) wi 3.3. not chanqe 
the status of the current screen» 


F i 1 e Editor 


Scrolling 


Ctrl 


previ Dus i :j. ne command 


The “prev ia us-1ine" command scro11s the text window 
u p a 1 i n e w i t h i n t h e f i 1 e, 



c t. r 1 


n e x ! 11 n e c o m m a n d 


The " ne x t ~ 1 i ne*' comrnand moves t;he t ex t wi ndow down a 

I i n e w :i. t h i n 1 h e f :i. 1 e , 


Ctrl 


P r e v 3. o u. s p a g e c o m rn a n d 


!he "previous-page" command scrol1s the text window 
u p 16 ! i ne s * i t h .1 n t h e f lie. 


Ctrl N 


n e : t p a g e c o rn m a n d 


! he “ ne x t — pape n c(3mmand rnoves t.he t.<•?> I: w:i ndow down .1.6 
1 i n es w i t h i n t h e f i 1 e 


c t r 1 S 


save command 


i he? "save" command saves any changes made to the? 
c u r r e n t f i 1 e a n d e x :» t s I h e e d :i. t m o d e. 


qu:i t command 


The “ 
"■f orgett i ng 
The "qu.:i, t ,f 
■file h as¬ 
st art over 


q u i t 1 ' e o m m a n d a b o r t 
'* 1 a n y c h a n q e s m a d e t o 

and re-edit- 


t h e e d 11 s e s s i o n 

t he t ex 1 f :l. 1 e 3. n memor v „ 
when either the wrong 
i t b ec: ome s d e s 3. r a b 1 e t o 


.. 1 6 
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8 p e c i a 1 C g m m a n d s 


There are four 
gr eat er f 1 e>? i b i 1 i t y 


spec i a 1 command s i n this ed i t or wh i c:h 
in programming on the vaiFORTH system 


al ]. ow 


ESCAPE 


s p e c i a 1 k e v c o m m a n d 


The 

to ignore 
■force a 
when “ctrl 


'' sp e c i a 1 - k e y' 1 c: o m m and i n s t r u c t s t h e v i d e o e d .i t o r 
any command function of the ne>tt key typed and 
char ac t er t o t he screen,, For e>; a mp 1 e , nor rna 1 ]. y 
> “ is t v p e d f t h e c u. r s o r j. s nr§ o v e d r i q h t« B y 


typing “ESCAPE ctrl >“ the 
r ather „ the r i qht—arr o w i s 


cursor is 
displaved„ 


not moved — 


c t r 1 


J 


sp1 it Iine command 


Often times, for formatting reasons, it is necessary 
t o 1 ’ s p 1 it" a 1 i n e i n t o t w o lines, T h e s p 1 i t 1 1 n e c o m m a n c! 
t a k e s a 3.1 c: h a r a c t e r s t o t h e 1 e f t o f t h e c u r s o r a n d c r e a t e s 


the first line, 
oriqinal 

this looks liken 


and wi th the remai ni ng c::haractors of the 
13. n e i. s c r e a t e d „ B r a p h i c: a 3.1 y ? 


befores 




afters 






Ctrl G 


sp 1 1 c: e < un s>p 3. it) c om m a n d 


The “sp 1 ice-command“ 
opera t i o n o f t h e “ s p 1 i t -com m a n c:! ’' a b o v e« 


opposite 


ctr 1 


V 

character 
or until 
with the 
scrol1ing 


r e p e a t c: o m m a n d 

' ! r e p e a t - c o m m and" r e p e a t s t. h e n e k t c o m m a n d o r 
t v p e d u n t i 1 a p r e d e f i n e d s t o p c: o n d i t i o n o c c u r r s ? 
a c on so 1 e k ey i s pr essed » t h i s i s used mos11 y 
p r e v i o u s / n e x t p a q e c: o rn m a n d s f o r c o n t :i. n l» o u s 


LX IV 
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F :i 1 e Ed i tor 


oops command 

Occassionai1y ? a line is inserted or deleted 
a c c i d e n t a 3. 3. y, h a 3. f a 3. i n e c 3. e a r e d fo y rn i. s t a k e ,, o r s o m e 
other maior editing blunder is made. As the name implies, 
t h e ''' o o p s ! ' c om m a n d c: o r r e c t s rn o s t o f t h e s e rn a i o r e d i t i n q 
errors. The "oops" command can be used to recover from 
the f o3 3. ow i nq cornmands: 


1) 

i. n s e r t 3. :i. n e c o rn m a n d 

< sh i f t 3: NS > 

2) 

d e 1 e t e 13. n e c o m a n d 

<shift DEL) 

3) 

hack command 

(Ctrl H> 

4) 

to but ter command 

(ctr1 T) 

5) 

t r o m h u f f e r c o m m a. n d 

(Ctrl F) 

6) 

cop y t rom buf T er command 

(Ctrl U) 

7) 

sp1it 1ine command 

(c t r 1 J ) 

B) 

s p 3. i c e c: o rn m a n d 







LX IV 
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8ubepmm a n d s 


The 

will be c 
f ol 1 owi nq 


subcommand is* entered by typing ctrl-V 
1 eared and a prompt ("; ") will be 

commands may be typed in response* 


The di sp 3. ay 
:i. ssued« The 


ST < return > Make the current 1 i ne the start of the 

file* (i, hack off the beginning) 

EN <return> Make the current. 1 me the end of the 

f i 1 e» < i , e. , h ac: k of f t h e en d ) 


F L < r e t. u r n > P o s i t i o n t h e c u r s o r o n t h e f i r s t 1 1 n e 

of the file. 


LL <return > Posi ti on the cursor on the 3. ast 3.ne 
of the file* 


RT <return ■ Reset the TAB stops to their original 
settings. 

P 8 < r e t u r n > E n t e r t h e p a 11 e r n s e a r c h s u b m o d e» T h e u s e r 

w i 1 3. b e p r o m p t e d t o e n t e r t h e s e a r c h s t r i n g „ 
7 h e c t r 3. — L c o m m a n d w i 3. 1 c o n t i n u e t h e s* e a r c h . 


I F f i 1 ename < r et ur n > 

I nser t t he spec i f i ed f i 3 e i. nt o t he f i 3. e 
i u s t a f t e r the c u r r e n t c: u r s o r !!. i n e» T h i s 
i s u s e f u 1 i o r p u 13 j. n g s u b r o u t i n e s f r o m 

This can be stopped at any 
time by pressing a console key. 


LX IV 





Fi1e Editor 


E d i t o r.C o m m a n d „ S u m m a r v 

Below is a quick reference list of all the commands which 
t h e v i d e o e d i. t o r r e c: o g n i e s „ 

Entering the Edit Modes (executed outside of the edit mode) 


ed i r 

LL 

WHERE 

:i. nf i 1 e C „ out f i 1 e) ( - ) 

Enter the edit mode and edit "infile'L If 

1 ‘ o u-t f i .1 e “ i <-3 s p e e i f i e d « s e n d e d i t e d t e x t 
t o ’' o u t f 1 .1 e“ ? o t h e r w i s e s e n d it ":m f i I e “ * 

E” e d i. t t h e 1 a s t f i I e e d i t e d« 

( -.- ) 

E n t e r t h e e d i t m o d e a n c:l p o s i 1 1 o n t !*• * e 
cursor over the word that caused a 
c: o m p :l. 1 a t i o n e r r o r * 

#BUFS 

S e t: s t h e 1 e n q t h ( i. n . s i n e s > o f t h e s t; o r a u e 

„ INFO 

Display memory allocation of the current tile 
so that it may be saved using the WEITE 
c omman d « ( u s ed i n c: a s e o f a s a v e er r o 

Cursor Movement: 

(issued within the edit mode?) 

Ctrl 

M o ve c u r s or u p o n e 1 i n e ? s c r o 1 1 i n g t h e 


file down one? line if necessar •• v 

file up one? line if necessary. 

Ctrl 4 

M o v e c u r s o r 1 e f t o n e c h a r a c t e r w r a p p i n q 

c t r 1 4 

to tli e right edge if moved off the 1 ef t« 

M o v e? c: u r s o r r i g h 1 o n e c h a r a c t e r ? w r a f::» p 1 n q 

RETURN 

to the left edge if moved off the right,, 

P o s i t i o n t h e c } i r s o r -1 t h e b e g i n n i n g 
of i he next Li ne. insert line :t f at the 

end of the file. 

TAB 

A d v a n c: e t o n e x t t a 1* u 1 a r > o J. u rn n „ 
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FiIe Editor 


Ctrl TAB 

Clear tab stop at current cursor location- 

shift TAB 

Set tab stop at current cursor location. 

Editing Commands; 

(issued within the edit mode) 

Ctrl INS 

Insert one blank at cursor location, 
losing the last character on the line. 

Ctrl DEL 

De1et e o h ar acter under cursor„ c1osing 
the line- 

shift INS 

Insert blank line above current line- 

shift DEL 

Delete current cursor line, closing the 
f i 1 e. 

Ctrl M 

1 n s e r t h 1 a n k 1 i n e he 1 o w c u r r e n t 1 1 n e. 

Ctrl I 

Togqle insert—mode/rep1ace-mode« 

(see full description of Ctrl—I)* 

BACKS 

D e 1 et e 1 a s t c: h a r a c t e r t yp ed,, i f on t h e 
same 1ine as the curspr- 


Er ase to end of 1ine (Hac k)- 

Ctrl V 

Enter the subcommand mode- (see be1ow) 

Buffer Management; 

(issued within the edit mode) 

c t r 1 

Del ete ..current cursor 1 i ne sendi nq 
:i. t T 0 t h e e d i t b u f f e r f o r 1 a ter u s e, 

Ctrl F 

i - \ e t h e c u r r e n t b t»f f e r 3. i n e a n d 3. n s e r t 

Ctrl K 

l< o p y c u jr r e r ) fc c u r s o r 1 i n e s e n d i n g 

Ctrl U 


c t r 1 R 

Roll the buffer making the next buffer 


R o 11 t h e b u f f e r B a c k w a r d s m a k i n g t h e 
p r e v i o u s b u f f e r 1 :l n e o n t h e s ere e n c u r r e n t 


Clear the current buffer line and 


N o t e s t h e c u r r e n t b u f f e r line i s 1 a s t 1 :i n e v i s i b 1 e i n t h e 
b u f f er w i n d o w, 




Fi 1 0 Editor 


Scrol1ing/Savinq; 


(issued within the edit mode) 


Ctrl X 
c t r 1 E 

Ctrl N 
c t r 1 S 
Ctrl Q 


S c r o 11 t h e e d i t w i n d o w u p a 1 i n e 
within the file, 

S c: r o 13. t h e e c 3 i t w i n d o w d o w n a 3. i n e 
w i t h i n t h e f i 1 e „ 

Scroll the edit window up 16 lines 
within the file. 

Scrol 3. t he ed i t wi ndow down 1 6 3. i nes 
within the fiIe. 

Save the changes made to the current 
tile and exit the edit mode« 

U u i t t h e e c3 i. t s e s s 3 o n f o r g e 11 i n g a 3.3. 
changes made to the current ti1e„ 


Special Keys: 


(issued within the edit mode) 


ESC 

Ctrl 6 

Ctrl 0 
Ctrl L 

Ctrl Y 


Do not interpret the me t key typed 
as anv of the commands above. Send 
"t directly to the screen instead, 

B p 1 i t t h e c u r r e n t 3. » n e i n t o t w o 1 1 n e s 
a 1" t h e po i n t wh er e t h e «:: ur sor i s « 

B p 3. i c e (u. n s p 1 :i t) t h e c u r r e n t 1 i n e a. n d 
t h e 3 . i n e a b o v e :i. t« 

C o r r e c t s a n y m a ;i o r e d :i t i n g b 1 u n d e r s - 0 o p s 1 

C o n t 3. n u e s e a r c h i n q f o r t h e p a t t e r n e n t e r e d 
in the subcommand mode. Look 

!::: n t e r t h e r e p e a t m o d e« T h e n e s t c o rn rn a n d 
o r c hf a r a c t e r t y p e d w :i. 1 1 b e r e p e a t e d u n t i 1 
a stop condition :i ::: met« or uni:! 3. a console 

Used most 1 v w :i thi ctr 1 --P ? 
Ctrl ~N, and the cursor commands „ 


Subcommands; 


(entered in the subcommand mode) 


• ft © b u b c o rn m a n d i s e n t e r e d b t y p i n g c: t r 1 -• V. r h e d :i s p 3. a 
will be cleared and a prompt ( H s ") will be issued. Th 
•f {o 1 j o w i n g c o m m a rt d s m a y b e t \/ p e d I. n r e s p o n s c „ 


ST ■return ■ 


M a k e t h e c u r r e n t 1 i n e t h e s t a r t o f t h e 
1 1 1 e« ’ i „ e « h a c k o f f t h e b e g i n n:!. n g ) 


L X 3: V 



Fi1e Editor 



EN 

•return> 

Ma k e the current 1ine the end of 
hack off the end) 

t he 

FI¬ 

<return> 

Position the curs or on t h e first 
of the file. 

1 i ne 

LL 

<return> 

Position the cursor on the last 
of the file. 

1 i ne 

RT 

< return > 

Reset the TAB stops to their ori 
settings. 

q i n a 3. 

PB 

<retur n> 

Enter the pattern search submode 

. The 


will be prompted to enter the search string. 
The ctr 3 — L.. c:omm a n d wi 11 con13. nue the tinearch „ 


IF fi1ename <return > 

I n s e r t t h e sped t i e d f :i. 1 e i n t o t h e f i 3. e 
just after the current cursor 1ine. This 
i s usef u 1 4 or pu 3. 3. i n.q s ub r out i nes f r om 

3 h i s c a n b e s t o p p e d at t a rt y 
t i me b y p r ess i n g a c on so 3. e key „ 
































































valDOS I 


Supplied Source Listing 






Screen 


Screen:: 10 


13 






0 < valDOSs quans and constants 

1 :1 ( QUAM ) ( 150 LOAD ) 

2 ? ( CARRAY ) < 160 LOAD ) 

3 VOCABULARY DOS IMMEDIATE 

4 DOS DEFINITIONS 


0 ( v a 1 D 0 S s a r r a y s 

2 4 CONSTANT MAXFL 

3 128 CONSTANT 128 

4 


5 

6 

LABEL FIMFLD 

1 1 

AL 

-LOT 

6 

( add r esses of fi1e b uf fers 
MAXFL 1+ ARRAY FLBUF 


QUAM 

FNCNT 

0 

TO 

FNCNT 

7 

0 FLBUF MAXFL 1+ 2* ERASE 

8 

QUAN 

FNSEP 

0 

TO 

FNSEP 



9 

QUAM 

FNSWCH 

0 

TO 

FNSWCH 


( map of buffers in use ) 

10 

QUAN 

UNIT 

0 

TO 

UNIT 

10 

MAXFL 2* 2 + ARRAY OPNSTT 

11 

QUAN 

DFLUMT 

0 

TO 

DFLUMT 

11 

0 OPNSTT MAXFL 4*2 + ERASE 

12 

QUAN 

FNSEC 

0 

TO 

FNSEC 

12 


13 

QUAN 

7WILD 

0 


?W ILD 

13 

< the filename ) 

14 

QUAN 

#ENTRIES 

0 


•ENTRIES 


LABEL ALLNMS 

15 

QUAN 

ttFEEE 

0 

TO 

#FREE —> 

15 

04 C, 68 C, 0 C, 58 C, 42 C, 


Bereens 

1. 1 


Scr 

sen: 

14 


0 

i 

( va 1 DOSs quans and eonst ants ) 

0 

1 

< valDOSs < 

error codes 

—\ 

QUAN 

DBLEEP 

TO DSLERR 


CONSTANT 

BADNME 


QUAN 

DIRBLK 

TO DIRBLK 


o 

CONSTANT 

BADUNT 


QUAN 

FSMBL.K 0 

TO FSMBLK 




BADFSM 

vj 

QUAN 

2FSMUP 0 

TO 7FSMUP 



CONSTANT 

FLEXST 

6 

QUAN 

7SAME 




CONSTANT 

DIRFUL. 

7 

QUAN 

DIRFRE 




CONSTANT 

DSKFUL 

8 

QUAN 

FL# 




CONSTANT- 

AMBNME 

10 

QUAN 

TADR 




CONSTANT 

FLBNE 

QUAN 

#UNTEN 


10 

9 

CONSTANT- 

TMFOPM 

1 1 

QUAN 

Nl* 


11 

1 0 

CONSTANT 

EOFERR 

12 

QUAN 

N2* 




CONSTANT 

FLNOPN 

13 

QUAN 

DIRLOC 




CONSTANT 

BADFL# 

14 

QUAN 

WRKSPC 




CONSTANT 

FLWPRT 

15 

QUAN 

DOSTMR 




CONSTANT 

WRGARG 


). 


Screens 

0 ( v a 3. D 0 S: q u a n s a n d c o n s t a n t s 

1 

2 VECT RDMOPN 

3 ASSIGN NOOP TO RDMOPN 

4 

5 VECT RDMCLS 

6 ASSIGN NOOP TO RDMCLS 


8 VECT EDMSPC 

9 ASSIGN NOOP TO EDMSPC 

10 

11 VECT RDMENDF 

12 ASSIGN NOOP TO RDMENDF 

14 VECT RDMWND 

15 ASSIGN NOOP TO RDMWND 




error codes 

1 15 CONSTANT FLOPN 

2 16 CONSTANT FLTBG 

4 HERE 1 AMD ALLOT ( even addr ) 

5 144 MAXFL * 192 +' ALLOT 

6 HERC TO WRKSPC 128 ALLOT 
i! TOPOM 741 S> 1- 


9 s 



(. — a ) 


WRKSPC 

128 - ; 








FSMAP 64 - ; 

< — a ) 








a ) 

15 

DIRTBL 

144 MAXFL * - ; 



error rout.i nes 


f i 1 . e n a m e c a n v e r s i o n 


Screen: 16 


0 ( 

v a 1 D 0 8 e r r o r r a u t i n e s 


) 

1 




2 !! 

DOSERR < 

# 

- ) 

3 

TO DSKERR R> DROP 0 5 



4 



•5 : 

?DOSERR ( f 

# 

- ) 

6 

SWAP 0~ 




IF 



8 

E> DROP DOSERR 




END I F 



i 0 

DROF : j 







12 u 

'■'DSKERR ( 



• ! 3 

0= IF R DROP 




DSKERR DOSERR ENDIF 5 



15 





Screens 19 
& ( vaiDOSs 

2 s FNCON ( Hi — f } 

0 TO DSKERR 

4 COUNT GETSWCH GETl IN IT 7DSKERR 
8 TO FNCNT 46 TO FNSEP 
FNFLD 11 BLANKS FNFLD 
BEGIN 

3 PICK C® DUP FNSEP = 

9 ’ IF 

10 2DR0P FNFLD 7 + 

11 DUP 1+ 3 BLANKS 

12 3 TO FNCNT 0 TO FNSEP 
ELSE 

14 DUP 42 ( ) = 

15 


Screens 17 

1 ( valDOS; filename conversion ) 

2 : GETSWCH < a c .. a c ) 

0 TO FNSWCH DUP 2 

4 IF 2DUP + 2- C® 47 ( "/" ) = 

5 IF 

6 2™ 2DUP + i +• CS> 

TO FNSWCH 

8 ENDIF 

9 ENDIF ; 

1 0 

11 r, GETUNIT ( a c — a e ) 

12 DFLUNT TO UNIT DUP 2 > 

IF OVER a 14916 « "D: ") = 

14 IF 

2 - SWAP 2+ SWAP 


Screens 20 




13 


file n ame c on ver sion ) 

OVER FNFLD 11 + OVER 
63 < •'?•') FILL DROP 
ELSE 

DUP 48 < "0") < OVER 
90 ( "Z"> > OR OVER 

57 < "9") > 3 PICK 

65 < "A") AND OR 
OVER 63 < "?") :■ AND 

IF 2DR0P 2DR0P 
BADNME DOSERR 


15 END IF 


Screens 18 

0 1 vaiDOSs filename conversion > 
1 

2 ELSE DUP 3 > 

IF OVER C® 68 ( "D") * 

3 PICK 2+ C® 58 m. AND 
IF OVER 1 + C® 49 ( "1") 

6 DUP 0 NOT OVER 3 NOT AND 

IF 

TO UNIT 3 - SWAP 3 + SWAP 
9 ELSE 

10 2DPOP DROP BADUNT DOSERR 

END IF 

12 END IF 

13 ENDIF 

14 ENDIF 

15 ENDIF 1 ; 


0 val DOS-a filename conversion > 

DUP TO FNCNT 0 

BADNME DOSERR 
END IF 

5 ENDIF 

6 1 + ROT 1 ■+• ROT 1 ROT- 
OVER 0 ~ 

2DROP DROP FNFLD C® 63 >* 
BADNME 'DOSERR 0 TO 'WILD 

DO 

FNFLD I + CD 63 = 

IF 1 TO '.'WILD END IF 
LOOP l - 


Screens 




screen: 






valDOS s alias 

definitions 

0 

( valDOS: put free space 

map 

) 

" 7 ' 


3P1CK 


( — n ) 


: FSMFLS 

( . 




3 PICK ; 




7FSMUP 



4 











FLBUFS) 


( n ~— a ) 


FSMAP FSMBLK 0 R/W 



6 


FLBUF 0 ; 




END IF 



7 






0 TO 7FBMUP 



8 


FLINFO 


< — a ) 

8 

0 TO FSMBLK ; 



9 


FL# FLBUF0 







1 0 





10 

: FSMUP 

< — 

) 

1 1 

s 

720# 720 # 




1 TO 7FSMUF’ ; 



12 


256# 256 # 







13 


128- 128 




: DSKFLS 

( — 

) 

14 


135- 135 - 




DIRFLS FSMFLS ; 



15 


4# 2# 2# ; 



15 





Screens 23 
0 < valDOSs 






DIRGE! 

OFFSET 0 OVER DR0 BLOCK 


6 : DIRFLS 

FLUSH 0 TO DIRBLK 5 
S 


9 u DIRUP 

UPDATE 5 

12 s ENTRY 

13 

15 


Screens 26 

0 < v a 1 D 0 S: c h e c k d .i. r e c: t o r y ) 

2 s CHKDIR ( — # ) 

0 TO #EMTRIES 0 TO #FREE 
65 TO DIRFRE 0 368 360 

I UNIT 720# + DIRGE! 

DIRLOC 128 +n>IRLOC 

1+ 1 TO 7SAME 
I CS> 195 AND 66 = 

J I + 5 +• C5> FNFLD I + 

C0 DUP 63 ( **? ") « 

—• > 


Screens 24 

2 s FSMGET 

3 

5 

8 FSMAP FSMBLK 0 R/W 

9 ENDIF 

10 
11 

12 ELSE 

13 DROP 

14 

15 


c h e c k c .1 i. r e c: t o r y 

IF DROP DUP ENDIF < > 

IF 0 TO 7SAME LEAVE END IF 
LOOP 2SAME 

DUP -GENTRIES DIRTBL + C! 

1 AT GENTRIES + ! 

DUP DIRFRE MIN TO DIRFRE 
1 AT #FREE -H 

DROP #ENTRIES ; —> 



a 1 1 o c a t e a s e c t o r 


) 


Screen: 28 

0 ( valDQS: 
1 


2 r 

ALTSEC 

( unit - C# tJ/f ) 


FSMGET 


4 

FSMAP 3 + © 

DUP 


IF 


6 

1- FSMAP 3 

+- ! 

7 

0 -1 FSMAP 

10 + 90 O+S 

8 

DO 


9 

I G5> 


10 

IF 


11 

SWAP DROP 

DUP LEAVE 

12 

128 I cs> 


1 3 

BEGIN DUP 

128 AND.0= 

14 

WHILE 2* 

ROT 1 •+• ROT 2/ ROT 

15 

REPEAT 



Screens 31 

0 ( v a 1 D G S s f i n d f r e e b u f f e r 

1 

2 s NXTORN ( — 

3 MAXFL 4* 0 

4 DO 

— 144 * D.IRTBL 16 - + 1 51 
DO 

7 I OPNSTT © OVER = 

8 IF DROP 0 LEAVE ENDIF 

9 LOOP -DUP 

10 IF DUP I0 

11 DO I OPNSTT © 0= 

12 IF I OPNSTT ! LEAVE ENDIF 
LOOP LEAVE 

14 ENDIF 

15 LOOP s 


a > 

0 


Screenn 29 

0 ( v a 1 D 0 S s a 3. 1 o c a t e a s e c: t. o r 
1 

DROP I SWAP TOGGLE 
ELSE 
4 8 + 

END IF 
1 /LOOP 
SWAP V- 
8 IF 

DROP BADFSM DOSERR 
10 ENDIF 

1 1 F.SMUP 1 

12 ENDIF ; 

13 

14 

15 i-,- > 


0 ( v a 3. D 0 B s i 1 u s h f i 3. e b u f f e r 

2 s FLFLS ( fl# — > 

FLBUF*© DUP 10 + C0 

DUP 8 + C3> 720* 

OVER 5 + a + 

OVER 128-- SWAP 0 R/W 
10 + 0 SWAP C! 

10 DROP 

15 


Screen s 

0 < v a .1 D 0 S s r e 1 e a s e a s e c t o t 
1 


0 ( valDOSs COPEN3 



RELSEC ( 


) 

- 

( $ Ca # 

..... 

SWAP FSMGET 



-r 



.1+ S /MOD FSMAP 10 

+• 4 



•'WILD NOT AM BN ME ? DOSERR 

5 

SWAP 1 28 




CNFDIR FLDNE 7D0SERR 

6 

BEGIN 




0 MAXFL 1 + l 


OVER 



-r 


8 

WHILE 




I FLBUF© 0 ^ 

9 

2/ SWAP' 1 - SWAP 




IF I + LEAVE ENDIF 

10 

REPEAT 





1 1 

SWAP DROP OVER CO 




-DUP TMFOPN ? DOSERR 

12 

OR SWAP C! 



12 

>R NX TORN DUP R FLBUF 1 

13 

FSMAP 3 + DUP v 1 I- 

SWAP ' 


13 


14 

FSMUP ; 



14 

UNIT DIRTBL CD ENTRY 

15 







1:3 / 0 




Screens 34 

0 < valDOS; t OPEN1 

1 

2 OVER 5 CMOVE 

3 3 + DUP a 1~ OVER 2+ 1 
0 + UNIT OVER C! 1 + 
DIRTBL C3 SNAP C! 

R FLBUF3 128- DUP 

a + 1 R/W R> 

RDMOPN 1 ; 


4 
6 
8 
1 0 

14 

15 




.f ) 


0 < valDOS: CREAD 1 

( adr cnt f 1 # 

TO FL# TO #UNTRIM TO TADR 
FL# 1 < FL# MAXFL > OR 
NOT .BADFI..# 7D0SERR 
FLINFO FLNOF'N 7D0SERR 

FLINFO 7 + DUP C® 

OVER S - C® = 

• DUP C® 3 AND 
256* SWAP 1+ C® + -DUP 0= 

If DROP EOFERR DOSERR ENDIF 
1- FL# FLFLS OVER 135- 
OVER 4 PICK 1+ C® —.. 


Screen: 35 

0 ( valDOS: 









CREAD 1 






20* + 1 R/W 





! 0 OVER Cl 









C® OVER C® - 










IF DROP ttUNTRM ENDIF 





DUP 3PICK 7 + DUP ® 










0 ER 135- FRICK C® + 




TADR DUP 4 PICK + TO TADR 





/PICK CMOVE #UNTRN OVER - 





7C #UNTRN OVER C® + 





W P C f #UNTRN 0~ 







Screen: 






6 









) 

( adr cnt fltt — -f > 
TO FL# TO #L)NTRN TO TADR 
PUT 1 .. FL# MAXFL > OR 

POT BADFL# 7D0SERR 
FLINFO DUP FLNOF'N 7 DOS ERR 
C® 32 AND NOT FLWF’RT 7D0SERR 

INFO 7 -i- DUP C® 125 = 

DUP 

C® AND 256* SWAP 1+ 

C® + -DUP 0= 

IF DUP 1 +• C® ALTSEC 0= 



> 


crdb:i 


Screen n 40 

0 ( valDOS: EWRITE3 
1 


4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 


IF 

DROP DSKFUL DOSERR 
END IF 

DUP 1 + 255 AND 

OVER 1 + 32767 AND 256 

/ 4 PICK 2 + CS> 1- 4* 

R R OR 4 PICK 10 - C! 
3PIQK 9 - C! 1 3PICK 
3 -I- C! FL# FLFLB OVER 
1-35- 128 ERASE R> 

3PICK 10 - C! OVER 6 
DUP 0 1 + 32768 OR SNAP ! 


15 


Screens 


43 


0 

1 

6 

8 

9 

10 
11 
12 

13 

14 

15 


valDOB s 


(RDB) < fl# -. Cb 

DUP TO FL# 

1 < FL# MAXFL > OR 
NOT BADFL# 7D0SERR 
FLINFO FLNOPN ?DOSERR 
FLINFO 7 + 

DUP C0 OVER 8 - G3> - 
IF 

DUP 10 - DUP 
C0 3 AND 256$ 

SWAP 1+ C0 + -DUP 0= 

IF 

DROP EOF"(ERR DOSERR 
END IF 


1 . 1/0 



Screens 41 

0 ( val DOS 2 rNRITEI! > 

1 

ELSE 

FL# FLFLB 1- OVER 
135- OVER 4 PICK 
5 1 + C0 720$ + 1 R/W 

END IF 

OVER 2 ! 0 OVER Ci 

8 ENDIF 

125 OVER C0 

10 #UNTRN OVER LL 

11 IF DROP #UNTRN ENDIF 

12 DUP 3PICK 7 - DUP 

13 0 ROT i SWAP ! 

14 OVER 135— 3PICK C0 ■+■ 


Screen : 42 

0 ( valDOS 2 CWRITE! CWRB3 ) 

1 

2 TADR DUP 4 PICK + TO TADR 
SWAP 3F‘ I Ci CMOVE 

4 OVER C0 OVER + DUP 

5 4 PICK C! 3PICK 8 

6 DUP C 0 ROT MAX SWAP C ! 

7 #UNTRN SWAP - TO #UNTRN 

8 1 SWAP 3 ■+• C! 

9 #UNTRN 0— 

10 UNTIL 1 

11 

12 s (WRB) < b fl# . f > 

13 SWAP WRKSPC C! 

14 WRKSPC 1 ROT (WRITE) 5 

15 


Screen: 44 

0 < valDOS: CRDB3 

1 

2 1~ FL# FLFLB 

3 OVER 135— OVER 

4 PICK 1 + C0 720$ + 

6 OVER 2- ! 0 OVER C! 

END 1F 

8 DUP C5> SWAP 

OVER 1 OVER C! 

135- +• C 0 1 ; 

14 FORTH DEFINITIONS 


0 


) 



6 

7 

8 

15 




46 


Screen 


49 



Screen: 
0 

“ 7 < 

5 


8 

10 
1 1 

12 

13 

14 

15 




Screen s 
0 
1 


Screens 50 

0 ( valDOS: CWIND3 
•( DOS DOS )( ) 

2 ? ( FNFLD )( 10 LOAD ) 



6 


1 0 

13 


( f fl# .- f 

TO FL# TO DOSTMR 

FL# MAXFL > OR 
NOT BADFL# ?DOSERR RDMWND 
FL. INFO DUP FLNOPN 7D0SERR 

■ewi ncli ng ) 

FL# FLFLB DUP 3 •+• 3 1- 
DUP 3PICK 5 + 0 <> 








E3 

9 


10 



11 
13 
15 











! OVER 8 + 


C® 72 m + OVER 

128- 





ELSE DROP ENDIF 









to end of 

file > 








WRSRC 128 FL# 

(READ) 0= 





DSKERR EOF'ERR = 

?DSKERR 



- 



CENTER] 


OD 


l SPACE 1 


Screen; 


0 ( v a 1.DOS-s 
1 


2 : (ENTER) ( $ — 

3 FNCON 'DSKERR 

4 2WILD NO! AMBNME 7D0SERR 

5 CHKDIR 0 = FLEXST 7D0SERR 

6 ttFREE DIRFUL 7D0SERR 

7 UNIT ALTSEC DSKFUL 7D0SERR 

a DUP 1 + TO FNSEC 

9 WRKSF’C 128 ERASE 

10 DIRFRE 1- 4* WRKSPC 

11 125 + C! WRKSPC 

12 SWAP UNIT 720* + 0 R/W 
UNIT DIRFRE ENTRY 

14 66 OVER C! 1+ 1 OVER 1 2 + 

1 5 


f 


) 

) 


Screen 

0 ( valDOSs 

2 IF 


3 DROP DSKERR DOSERR 

4 ENDIF 

5 ELSE 

6 ROT DROP SWAP DUP 

C 8 MINUS OVER 7 + H 

8 0 SWAP C! 

9 ENDIF 
END IF 

11 128 /MOD 

12 BEGIN DUP < space forward > 

13 WHILE 

14 WRKSPC 128 FL# (READ) 0— 

15 



Screens 53 

0 < valDOSs CENTERII 

FNSEC OVER ! 2+ 
FNFLD SWAP 11 CMOVE 

4 DIRUP FSMUP 1 ; 

5 

6 

8 

10 
1 1 

12 


0 ( valDOSs CSPACE3 

2DRDP DSKERR DOSERR 
END IF 
5 

DROP WRKSPC SWAP 
FL# (READ) 7DSKERR 

1 0 
1 1 


) 



Screens 54 

0 < valDOSs tSPACEI 

1 

2 s (SPACE) ( cnt f 1 # -.f ) 

3 TO FL# 

4 FL# 1 < FL# MAXFL. 

IF DROP BADFL# DOSERR ENDIF 
6 FLINFO 0— 

IF DROP FLNOPN DOSERR ENDIF 
RDMSF'-C DUP 0< 

9 

10 FLINFO 7 i DUP C 8 

IF 

13 DROP 7 4- 8 + 

0 MAX 1 FL# (WIND) 0- 
15 


< $ - it n/0 ) 

FNCON 7DSKERR 

4 ?WK D NOT AMBNME 7D0SERR 
UNIT DIRTBL C» 256* + 

DO 

IF 8 * 8 3PICK 

IF 1 + LEAVE END IF 
END IF 

SWAP DROP 1 ; 





E REN 3 


) 


CLOCK 3 r; UNLOCK .3 


) 









Screens 58 


0 

1 


4 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 


valDOS: 


(REN) ( $n $o — f ) 

TO Nl$ TO N2$ 

N2* FNCON 7DSKERR 

7WILD NOT AMBMME 7D0SERR 

CHKDIR 0= FLEXST 7D0SERR 

FNFLD WRKSPC 11 CMOVE 

UNIT TO DOSTMP 

NIT. FNCON 7DSKERR 

'•'WILD NOT AMBNME 7D0SERR 

DOSTMP UNIT = BADUNT 7D0SERR 

CHKDIR FLDNE 7D0SERR 

UNIT DIRTBL C3 ENTRY C3 

32 AND 0~ FLWPRT 7D0SERR 


Screen: 61 

0 ( valDOS: 


2 s (DOLCK) < « opt — f ) 

3 TO DOSTMP (7’OPEN) 7DSKERR 

4 NOT FLOPN 7D0SERR 

5 DOSTMP UNIT DIRTBL C3 

6 ENTRY DLJP C3 ROT 

IF 32 OR ELSE 223 AND ENDIF 
SWAP C! DIRUP 1 ; 

9 

10 : (LOCK) ( $ — t ) 

1 (DOLCK) 7DSKERR .1 ; 

12 


13 s (UNLOCK) 


( T — f ) 


14 0 (DOLCK) 7DSKERR 1 ; 


Screen: 59 

0 ( val DOS: EREN3 EKILLl ) 

1 

2 WRKSPC UNIT 

3 DIRTBL Co) ENTRY 5 + 

11 CMOVE DIRUP 1 ; 

P 6 ; (KILL) 

(70PEN) 7DSKERR 
S NOT FLOPN 7D0SERR 
9 UNIT DIRTBL C3 ENTRY 
10 DUP CS) 32 AND 
11 IF DROP FLWPRT DOSERR ENDIF 
12 . DUP 3 + a 1- 
13 BEGIN 

WRKSPC OVER 

15 UNIT 720* + 1 R/W 


Screens 62 

0 ( valDOS: CENDF3 ) 

2 : (ENDF) ( fl# — f ) 

FL# MAXFL. > OR 
NOT BADFL# 7D0SERR 
FLINFO -DUP FLNOF'N 7D0SERR 
DUP CS) 32 AND 

IF DROP FLWPRT DOSERR ENDIF 
DUP 7 + CS) OVER 1- C! 

DUP 2- DUP ca OVER 1-- CS) 

5 AND ROT DUP 11 + CS) 

At SWAP 1- ! 1 4 

ROT 8 CS) < ROT 

— > 


Screen: 60 

0 ( valDOS: 

1 

2 UNIT SWAP RELSEC 

3 WRKSPC 125 + DUP 

i+ ca dup rot ca 

3 AND DUP < ROT 
6 256* + 1- 

UNTIL 

8 DROP 128 SWAP C! 
DIRUP 1 ; 

10 


EENDF 1 ) 

■ OVER 720* 

OVER + WRKSPC SWAP 1 R/W 
OVER SWAP RELSEC 
WRKSPC 126 + DUP Ca 
SWAP 1- Ca 3 AND 
FLINFO 1+ DUP a 
32768 OR SWAP ! 

2DR0P DROP RDMENDF 1 ; 

15 FORTH DEFINITIONS 









Screen; 64 
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13 
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Screen;; 65 

0 
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Screen;; 67 
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Screens 68 


8 




Screens 66 


4 

5 

6 

8 

11 
12 
13 

15 




15 






error routines 


) 


Screen:: 

0 ( valDOS: quarts and vests 

1 ? ( DOS DOS )( ) 

2 ( (WIND) ) ( 50 LOAD > 

3 ? < $. ) ( : $. COUNT TYPE ; ) 

4 11 ( +Y/N ) ( 142 LOAD ) 

6 QUAN FLFL# QUAN FLCNT 

7 QUAN ED#IN 0 TO ED#IN 

8 LABEL F'LNME 16 ALLOT 

9 VECT TECHO 

10 ASSIGN DROP TO *ECHO 

11 

12 : ECHO ( f — ) 

13 IF ASSIGN EMIT 
ELSE ASSIGN DROP 

15 END IF TO t'ECHO 


Screen: 

0 ( valDOS: argument evaluation ) 
1 

2 s GETVAL DOS ( $ — v ) 

3 WRKSPC 34 BLANKS 
WRKSPC OVER CD 1 + CMOVE 

5 WRKSPC LATEST (FIND) 

DROP CFA EXECUTE 


8 

ELSE 



9 

WRKSPC 

NUMBER DROP 


10 

ENDIF 5 



12 : 

BETARGS 



13 

32 WORD 

HERE 1 OVER 8 



IF 2DROP 



15 

40 * 85 




Screen s 

0 ( valDOS: 

2 : CM DERR 1 DOS ( err — ) 

CR DUP TO DSKERR 4 /MOD 
696 + WRKSPC SWAP 1 R/W 
32 * WRKSPC + 32 -TRAILING 
TYPE CR SP! DSKFLS QUIT ; 

8 : 7CMDERR ( f err — ) 

9 SWAP 0= IF CMDERR ENDIF DROP ; 

11 : 7WRGARG DOS ( f ) 

WRGARG 7CMDERR ; 

14 : 7SYSERR DOS ( f -. ) 

15 DSKERR 7CMDERR ; 


Screen: 

0 ( valDOS: CONFN ) 

2 LABEL F'NAME 16 ALLOT 

( a u — T ) 
F'NAME 1 . + 68 OVER C! 

1+ SWAP 49 ■+■ OVER C! 

1+ 58 OVER C! 

1+ OVER S -TRAILING 
>R OVER R CMOVE R> + 

46 OVER C 1+ SWAP 8 + 
-TRAILING >R OVER R 

F'NAME 


Screen 
0 ( 


: 72 

valDOS: 




14 

15 


GETARB 
DOB OVER 

REPEAT 
ROT DROP 


> AMD 

SNAP 1 + SWAP 




DUP 1~ 

DUP C0 ROT - OVER C! 1 
ELSE 


F L 0 A D s u p p o r t 

( n fl# -••••• ) 

FNS'WCH 67 ( M C n ) « 

ED#IN OVER (SPACE) 7SYSERR 

OVER (RDB) 7SYSERR 



FLOAD 


Screen: 76 

0 < valDOSs FLOAD support. 

1 

2 : NXTCHR DOS ( — L'c 13/0 ) 

7TERMINAL 0= STATE ® 0# 

4 OR EOFERR 7D0SERR 

5 FLFLtt < RDB) 7DSKERR 

6 1 AT FLCNT + ! DUP *ECHO 

7 DUP 155 - 

8 IF 

9 DROP BL 

10 FIX NT 0 TO FLCNT 39 = 

11 IF 

12 DROP C LATEST PFA OFA , 3 

13 7BSKERR 

14 ENDIF 
ENDIF 1 ; 


Screens 

0 < valDOS 
1 

2 WORD ! ? F WORD 7 WORD 2+ 

3 ’ WORD 2 + 1 BLK ® >R 
FLCNT >R 0 BLl ! 

5 DUP FLNME 16 CMOVE 

6 (OPEN) 7SYSERR 
TO FL.FL# DROP 

S FLFL# (SKIP) CR INTERPRET 

9 FLFL# (CLOSE) Dl'RFLS 

10 R > TO FLCNT R> BLK 1 

11 WORD R > OVER 

12 2+ ! R> SWAP 1 

13 R> TO FLFL# ; 

14 


Screens 77 

FLOAD support 

1 

2 s FWORD DOS < c: . > 

HERE 34 BLANKS HERE 1 + DUP 
4 BEGIN 

DROP NXTCHR DUP 
DSKERR EOFERR = OR 7SYSERR 
0= IF 0 ENDIF 
8 DUP 4 PICK 

UNTIL 

10 BEGIN 

11 OVER C 1 1+ 

12 TOPOM 32 . OVER U 

FLTBG 7CMDERR 

14 NXTCHR DUP 

15 


Screen s 

L 0 AD redef med 

2 : FIXWORD DOS 

0 BLK CFA WORD 1 
"* i) CFA •’ WORD 2+ ! ; 

3 : LOAD DOS < n - 

’ WORD D ,' R ;■ R FI XWORD DROF 
LOAD F R > WORD D! 

WORD ® ' BRANCH CFA <> 
AND r, ' (7L0ADING) CFA 
' '^LOADING 4 + ! 


Screen s 

0 < valDOSs FLOAD ) 

1 

2 DSKERR EOFERR * OR 7SYSERR 

3 IF 0 ENDIF 

DUP 4 PICK = OVER 0 - OR 
5 UNTIL 

ROT 2DR0P 

HERE 1 + - HERE C! ; 

8 

9 s FLOAD DOS < — ) 

10 GETARGS 7WR6ARG 44 GETARG 

11 IF SWAP GETVAL 1- 0 MAX 

12 ELSE 0 ENDIF 

13 SWAP FLFLtt >R 

WORD DUP ® >R 2+ ® R 
15 I ’ BRANCH CFA 3 LITERAL —> 


Screens 81 
0 ( valDOS s 

2 s DIR DOS ( 

3 DFLUNT 49 + ALLNMS 2+ C 1 
GETARGS 0= IF ALLNMS ENDIF 
DUP 1 + C.v 248 AND 48 = 

1 + C® 15 AND 48 + ALLNMS 
8 2+ C! ALLNMS 



END IF 




'SYSEF R UNIT 



“ Files on 2 


FSMAP 






DDF 

ca -dup 

! 5 

WHILE 





Screen; 82 

0 ( valDOS; DIR ) 

1 EMIT 1+ 

2 REPEAT 

3 DROP OR CR 

4 NAME EXT SIZE S 

5 EC ATTR " CR 

£, . " +- + - + - +.t~+- + -+- + - + —+ - + -■+ 

7 4-. 


8 

CR CR CHKDIR DUP 


9 

BEGIN 


10 

DUP 0# 7TERMINAL 

0™ AND 

11 

WHILE 


12 

2DUP - UNIT SWAP 

DIRTBL + 

13 

C3 ENTRY SPACE DUP 5 + 8 

14 

TYPE DUP 13 + C3 

T n •• 

15 

IF 46 EMIT 



Screen: 83 



0 ( valDOS: 

DIR 



1 


Screens 85 

0 ( valDOS; COPY 

2 ; COPY DOS ( - 

3 SETARGS 7WRGARG 
61 GETARG 7WRGARG 
DUP (ENTER) 0= 

6 

DSKERR FLEXST = 7SYSERR 

8 ENDIF 

9 DUP (70PEN) 7SYSERR 
NOT FLOPN 7CMDERR 
(OPEN) 7SYSERR 

12 < ROT DROP OVER 

13 FL..BIJF3 C3 32 AND 
0= FLWPRT 7CMDERR 

15 


Screens 86 

0 ( valDOS; COPY 


2 ELSE SPACE ENDIF 

3 DUP 13 + 3 TYPE 

4 DUP 1+ 3 7 .R 

5 DUP 3 + 3 6 .R 

6 4 SPACES Co) DUP 32 AND 
IF 76 ( "L") EMIT ENDIF 

10 REPEAT- 

13 DSKFL..S 2DR0P 

15 


FNSWCH 65 ( "A") = 

0 (PICK (WIND) 7SYSERR 

R 44 ( ",") GETARG 0= 
H- >R ENDIF 

(OPEN) 7SYSERR SWAP DROP 

WRKSPC 128. 3PICK (READ) 
DROP #UNTRN 128 <> 

WRKSPC 128 ttUNTRN 



Screen; 84 

SWAP 1+ C3 

OVER TO UNIT ENTRY 
9 

12 

DIRFLS OUT 3 0~ 

15 CR ; 


COPY RENAME 
5 PICK (WRITE) 7SYSERR 

(E'.NDF) 7SYSERR 

10 ; RENAME DOS -< 

61 GETARG 7WRGARG 

SWAP (REN) 7SYSERR 

LI ." File renamed" CR CR 



system words 


) 


Screen: 88 

0 ( valDOSs 

1 

2 QUAN WL.DFL6 QUAN SWITCH 

3 VECT DISKQP VECT TOUT 

4 HUAN TEMP 

5 

6 : (CMDPAR) DOS ( — ) 

GETARGS 7WRGARG 
8 BEGIN 

8 0 >R 44 < ",") GETARG 0= 

10 IF DUP R> 1+ >R END IF 

DUP TO NIT FNCON FNSWCH 
12 TO SWITCH 7WILD TO WLDFLG 

IF CHKDIR DUP DUP 0= 

15 FNFLD UNIT CONFN 


Screen: 91 

0 ( valDOS: system words 

2 ." is " TOUT . ' 

END IF 

4 ELSE 

5 DROP 

6 ENDIF 1- 
REPEA'f 

8 DROP 

9 ELSE 

CR 0 OUT ! NIT. T. 

18 OUT a - SPACES 

ENDIF R 

15 DROP CR CR DSKFLS ; 


Screen* 89 

0 < valDOS: system words 

CR 0 OUT 1 T„ 

18 OUT ■!> - SPACES 
. " is non -• e>?ist:ent 1 ' 

END IF 

BEGIN -DUP 
WHILE 

DIRTBL OVER 

9 C® UNIT SWAP ENTRY 5 + 


1 0 

1 3 

15 


UNIT CONFN 1 WLDFLG 
SWITCH 78 ( "N"! * 

IF DROP CR TOUT SPACE 
DUP T„ „ " '? " + Y/N 

END IF 


Screen: 92 

0 ( valDOS: KILL LOCK 
2 : T! ILL kill" ; 

4 : ! ILL DOS ( 



ASSIGN (KILL) TO 

DISK 



♦OUT 


(CMDPAR) ; 







♦LOCK . M lock" ; 


11 






D I SK 








Screen: 90 


T„ 18 OUT a 

4 


8 

10 

13 

14 

15 


DS! ERR F"LOP 14 

ELSE . " is ???" 
END I F 
END IF 
ELSE 


BETUNIT 

s ^UNLOCK . " unlDck" ; 


IS 


( 

.SB I Gl ! ("UNLOCK ; TO DI SLOP 
(CMDPAR) 


( 

GETARGS ■ NRGARG GETVAL 
OVER 4 -:>• AND 
BADUNT "-CMDERR. 

TO DFLUNT CR ; 


Screen 


Screen: 94 

. 0 ( vail DOS: PRINT ) 

1 

2 : PRINT DOS ( — ) 

3 GETARGS 2WRGARG 44 GETARG 

4 IF SWAP GETVAL 1- 0 MAX 

5 ELSE 0 ENDIF SWAP 

6 (OPEN) 2SYSERR SWAP DROP 

7 DLJP <ROT OVER TO TEMP (SKIP) 

8 FNFLD UNIT CONFN 

9 dR CR Files " ^„ OR OR 

10 FNSWCH 78 <> DUF' TO FNSWCH 

11 TEMP 1+ # TO TEMP 

12 BEGIN 

13 0 7TERMINAL FNSWCH * 0= 

IF DROP DUP (RDB) ENDIF 

15 


s 97 
0 ( valDOS: READ 
1 

2 : READ DOS ( 

65535 GETARGS 7WRGARG 

4 44 GETARG 7WRGARG 

5 SWAP 44 GETARG 

6 IF 

SWAP 4 ROLL DROP 

8 GETVAL <ROT 

9 ENDIF 

10 GETVAL <ROT 

1 TO TEMP FLOPEN (READ) 

12 0 = DSKERR EOI :;: ERF: <> 

AND NOT 7SYSERR 
TEMP IF FL# (CLOSE) END IF 
15 CR DSKFLS ; 


Screen: 95 

0 ( valDOSn PRINT 

2 while: 

3 FNSWCH 1 = 

4 IF 0 TO FNSWCH 



<# # # # # 
SPACE 1 AT 
END IF 
END IF 

DUP EMIT 155 - 
REPEAT 
(CLOSE) 

CR DSKFLS ; 


15 


TEMP 


#> TYPE 

TO FNSWCH 


Screenr. 98 

0 ( valDOSs WRITE 

( - 

GETARGS 2WRGAR6 
44 GETARG 7WRBARG 
SWAP 44 GETARG 7WRGARG 
GETVAL SWAP GETVAL ROT 
2 TO TEMP FLOPEN (WRITE) 0= 

DSKERR FLWPRT = 7SYSERR 
FL# (CLOSE) FLWPRT CMDERR 

F-L# (ENDF) 7SYSERR 
FL# (CLOSE) 

END IF CR DSKFLS 



Screen: 96 

r ead/wr i t e ut i 1 :i. t y ) 

2 : FLOPEN. DOS ( $ -- ) 

DUP 1+ C3> DUP 240 AND 48 = 

4 

5 15 AND SWAP DROP 0 TO TEMP 

6 ELSE 

DROP TEMP 2 AND 

3 IF DUP (ENTER) 0- 

9 IF 

10 DSKERR FLEXST = 7SYSERR 

11 END IF 

12 END IF 

(OPEN) 7SYSERR SWAP DROP 

14 END IF 2 3 * * * 7 ; 

15 




14 




( 

SWAP DROP GETVAL 
(CLOSE) CR DSKFLS 


s 


reen ;* 
1 


1 00 


Screen s 
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3 c r e e n s 101 S c r e e n s 10 4 
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Screens 
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cr 

15 



scr 
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>cr 

0 
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1 1 

13 
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106 


109 


Screen s 
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107 Screen: 110 

0 ( Utils: OPEN ENTER 

2 ’( FLEE# )< 70 LOAD ) 

3 

4 :: OPEN DOS 

GETARGS 7WRGARG 
(OPEN) 7SYSERR 
CR »" F-'ile access #" 
DROP CR DSKFLS ; 

10 : ENTER DOS 

GETARGS 7WRGARG 
(ENTER) 7SYSERR 


FSPACE ENDFIL 

GETARGS 7WRGARG 
44 GETARG 7WRGAR6 
GETVAL SWAP GE TV AL¬ 
SU AP (SPACE) 7SYSERR 

9 : ENDFIL DOS 

GETARGS 7WRGARG 
GETVAL (ENDF) 7SYSERR 

13 


FDUMP system words 


Screens 112 
0 < Utils: 

1 

2 s PSPACE ( — ) 

3 PFLAG 3 DUP 254 AND 

4 PFLAG ! SPACE PFLAG ! ; 

6 s P „ ( c •— ) 

127 AND DUP 

8 32 < OVER < Ctrl? > 

124 > OR < clear...?) 

10 I F 

1 1 DROP 46 ( " . " ) 

END IF 

13 /.EMIT ; 

14 

15 -.> 


Screenu 115 

0 < Utils;; FDUMP 
1 

2 IF 



FNSWCH 16 

= 24 * 30 + 

4 

OUT 9 SPACES PSPACE 


DUP TEMP - 

TEMP 0 

6 

DO DUP I + 

C5> P. 


LOOP DROP 


8 

END IF 


9 

REPEAT 


10 

2DROP R > NOT 


11 

?TERMINAL OR 


12 

UNTIL 



DROP (CLOSE) 


14 

CR BASE 1 DSKFLS 



15 


Screens 113 

0 < Utils: FDUMP 

2 : FDUMP DOS < — ) 

GETARBS 7WRGARG 
(OPEN) ' SYBERR 
FNFLD UNIT CONFN 
6 CR CR . " Files " CR 
8 FNSWCH 87 1 + *: 

8 TO FNSWCH SWAP DROP 

9 BASE 0 HEX SWAP 0 


:!. 0 

BEG I N 


:!. 1 

WRKSPC 

128 4 PICK (READ) 

1 2 

13 

. >R 128 
BEG IN 

#UNTRN 

14 

15 

OVER 

0> •TERMINAL 0^ AND 


Screen : 114 

0 < Utils: FDUMP ) 

1 



WHILE 


■~r 

3 PICK 

FNSWCH MOD 0^ 


IF 



CR 0 

TO TEMP 

£> 

0 OUT ! 3 PICK 0 


<# # 

# # # # I 

8 

TYPE 

SPACE PSPACE 

9 

END IF 


10 

DUP C3 

0 ■<# # # #: TYPI 

11 

SPACE 

1+ ROT 14- 

12 

ROT 1- 

ROT 1 AT TEMP 4- 

13 

OVER 0 

~ 4 PICK 

14 

15 

FNSWCH 

MOD 0OR 


Screen s 116 

0 ( Utils: REWIND EOF 
1 

2 s REWIND DOS < 

GETARBS 2WRGARG 
4 GETVAL 1 SWAP (WIND) 
2SYSERR CR DSKFLS ; 

7 s EOF DOS ( 

GETARBS 7WRGARG 
GETVAL 0 SWAP (WIND) 
7SYSERR CR DSKFLS ; 

15 


Screens 117 

0 ( Ut :l 1 si NAMED ISK 

2 : NAMEDISK DOS ( 

DFLUNT 14 GETARBS 
4 IF SWAP DROP GETVAL ENDIF 
OVER 4 > OR 

6 NOT BADUNT 7CJ1BERR 

1- FSMGET FSMAP 104 +• 

CR , n Olds “ DUP 
BEGIN DUP BE -DUP 
WHILE EMIT 1+ 

11 REPEAT 

12 DROP DUP 20 ERASE CR 

13 News " 20 EXPECT CR CR 

14 1 fO ?FSMUP DSKFLS ; 



1 18 


10 
l i 
12 

i 3 

14 

15 


Screen: 121 

0 ( Fmtrss 


FMOVE 


4 


: FMOVE DOS 

GETARGS 7WRBARG 
61 GETARC:« 2WRGARG 
0 (CLOSE) SWAP INSIN 




6 


(OPEN) 7SYSERR <ROT DROP 

7 


DSKFLS INSDST DUP (ENTER) 0- 

8 



9 


DSKERR FL.EXST = 7SYSERR 

10 

10 


1 1 

11 

(OPEN) 7SYSERR SWAP DROP 

12 

12 


13 

13 

INSIN PAD DUP 1 AND + 

14 


TOPOM OVER - 4 PICK 

15 

15 

(READ) INSDST PAD DUP 

Screen s 119 

Screen 


0 

0 ( 

FMOVE 

1 





1 AND + TADR OVER • 



4 PICE (WRITE) DSKFLS 0 = 

4 


IF DROP (CLOSE) (CLOSE) 


D 


DSKERR CMDERR 


(CLOSE) 

CR CR DSKFLS 


< 

HERE 1 + 10 EXPECT HERE 1 + 
BEOTN DUP Ca WHILE 1 + REPEAT 
BL IT P C! HERE NUMBER DROP ; 


ScreenL 120 

0 ( Fmtrss system words 
1 * < FL..FL# ) ( * 70 LOAD > 


6 

7 

8 

9 

10 
11 



INSIN CR 

»" Insert source: START> 
BEG IN 

'/TERMINAL 1 4 
UNTIL 
46 EMIT ; 

INSDST CR 

. " Insert dests <SELECT; 
BEG IN 

'/TERMINAL 2 « 

46 EMIT 5 







< u s cnt — ) 

I 14 8 /MOD FSMAP 10 

WHILE 2/ SWAP 1- SWAP 

SWAP DROP DUP 255 XOR SWAP 
/RICH C5> AND 0# FSMAP 3 + 

OVER Ca AND SWAP C! 

15 


FORMAT 


} 


Screens 124 
0 < Fmtrs; 

2 s FORMAT DOS ( •— ) 

DFLUNT 1+ SE I' ARBS 
4 IF SETVAL SWAP DROP ENDIF 
PUP DUP 1- TO UNIT CR OR 
6 Format unit " . ? " +Y/M 

IF 

8 DUP WRKSPC 772 ! <FMT) 

, 9 DROP WRKSPC 128 ERASE 

10 2 WRKSPC C! 

WRKSPC 1+ 707 OVER 1 716 

3.2 SWAP 2-f" 1 3 5 WRKSPC 10 + C! 

WRKSPC 3 3 + 89 255 FILL 
720* 359 h 

WRKSPC OVER 0 R/W .> 


Screens 327 

0 ( Fmtrs: system words 

2 0 VARIABLE SEC/PAS 

3 0 VARIABLE SECNT 

5 : AXLM DOS < system ) 

6 4 PICK 0 

DO 3PICK I 128 * + 

3PICK I + 3 PICK R/W 
LOOP 2'DROP 2 OR OP ? 

3 0 

13 : DCSTP DOS ( — > 

12 DSKFLS TOPOM PAD DUP 3 AND 
0 128 13/ SWAP DROP 
SEC/PAS ! 0 SECNT 1 «, 

15 



Screen125 

FORMAT > 

2 

Lock out error screens'". " 

6 

IF 

UNIT 695 24 LOCKOUT 
END IF 

UNI 1 CR 

«" First, sector: " 


Screen: 128 

DISKCOFY1 




DISKCOPY 1 ( - > 

720 SECNT' 0 SEC/PAS 0 MIN 
>R PAD DUP :i. AND ~ SECNT 

SECNT 0 DUP . 



Screen: 126 

GE T NUN CR 

0™ UNTIL 
END IF 

DROP DSKFLS CR CR s 

12 

13 

15 


:. C K COPYC ) 




( — ) 

CR « ' Irv: ;:-rt :..:ource m dri ve 1 
I r : I " t d t 1 11 d f 1 VB 2 


C SECNT u) . SEC/RAS 5> MIN 

SECNT 

1 AXLN 720 4- 0 AXLM 

SECNT + ! SECNT 0 720 = 




'7 


8 

9 

10 
1 1 
12 

13 

14 

15 
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0 
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Screen; 134 
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1 0 


1 1 
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11 

ii 

14 

15 


15 



Screen s 142 

0 ( +Y/N routine ) 

1 ( T h i s Y / N r o u t. i n e a c c e p t: s u p p e r 

2 or lower case and echos it- ) 


Screens 145 
0 
1 


4 BASE 3) HEX 

6 * 4-Y/n ( — f 

KEY DUP OF AND 

8 DUP 59 < > 

9 0BRANCH [ 0014 „ 3 

10 DUP 4E <> 

11 0BRANCH t: 0008 , 3 

12 2DRGP BRANCH C FFDA 5 3 

13 SWAP EMIT 59 * ; 

14 

15 BASE ! 


4 

5 

6 
*7 
8 
9 

10 
11 
12 

13 

14 

15 
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y 
8 
9 

10 
1 1 
12 
13 

15 
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4 

"7 

/ 

8 

9 

10 

12 

13 

14 
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8 

13 




TO AT 


Screen s 148 
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9 
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0 ( Quans 
1 

2 s TO 

3 -FIND 0- 0 TERROR DROP 
STATE 3 

5 

ELSE EXECUTE 
ENDIF ; IMMEDIATE 

8 

9 s AT 

10 -FIND 0= 0 TERROR DROP 

ENDIF 5 IMMEDIATE 
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0 ( Quan: 12®61 C2I43 ) 


cr 

8 

9 

10 

14 

is 




4 C C, PUSH , 


00 C, 91 C„ 
01 C, 91 C. 


Screen: 150 

0 < Qu.ans ASSIGN 


4 ' ( CFAL.IT 
6 immediate: > ) 

IMMEDIATE 

15 


Guan: C2V6I! 



































48 C, 

w c, 





Screen 


157 


Screens 154 

0 ( Q u a n s p a t c h f o r C R E A T E 
1 

2 OCX 


4 s 

< F'TCH) 

( system ) 

5 

SWAP >R R = 251 R 

= 249 R> = 

6 

OR OR ; 


8 s 

F'TCH 

( system ) 

9 

IF L ’ (F'TCH) CFA 

1 LITERAL 

10 

ELSE I ’ = CFA 1 

LITERAL 

11 

END IF 


12 

I! •’ CREATE 63 + 1 

LITERAL ! ; 


13 

14 

15 


0 

1 


4 

7 

8 
9 

10 
11 
12 

13 

14 

15 


Screen: 155 

0 ( Quan: QUAN VECT 
1 

2 : QUAN 

3 ON F'TCH LABEL -2 ALLOT 

4 (206) , (2!4) , 

5 C ■' VARIABLE 4 + 3 LITERAL 

6 2 ALLOT OFF F'TCH ; 

8 s VECT 

9 ON F'TCH LABEL -2 ALLOT 

10 (2V6) , (2!4) , 

11 C VARIABLE 4 + "J LITERAL 

12 C J NOOP CFA 1 LITERAL , 

13 OFF F'TCH ; 

14 

15 


Screen: 
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1 


cr 
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Screens 


158 


159 





Screen: 160 

0 < Utils: CARRAY ARRAY 

1 BASE S> HEX 

2 CARR AY ( cccc, 

3 CREATE SMUDGE ( cccc: 

4 ALLOT 


Scree 
0 ( 


— a ) 


n: 163 

Utils: XC 1 XI 

XCI ( n0.„.nm cnt. addr 

OVER 1.t : R 0 

DO J I -- C! 




; CODE 

CA C, 

CA 

C, 18 

C, 





LOOP R> DROP ; 

6 

A 5 C, 

W C, 

69 

C, 02 

c. 

95 

c, 





00 C, 

98 C, 

65 

C, w 

1 + 

C, 


7 


< nS,..nm cnt addr ) 

8 

95 C, 

01 C, 








OVER 1~- 2* -i- >R 0 



OF A ® 

) 

, C; 






DO J I 2% 

i 0 










LOOP R > DROP ;; 

11 ; 

ARRAY 



( c: c c: c: 

» n 


) 





GREAT' 

SMUDGE 





12 

( 

C autions Remember 1 i rn tat :i on 


2* ALLOT 







< 

o n s t a c k s i z e o f 3 0 v a 1 u. e 


CODE 


00 

C, 36 



c. 


( 

b e c: a u s e of G S c 0 n i 1 i c t „ ) 

15 

4C C, 

J CARRAY 08 + 


C; 






Screen; 161 

Utils: STABLE TABLE > 

CREATE SMUDGE < cccc: n 
5 CODE 

4C C, ’ CARRAY 08 + , C; 

4C C, ARRAY ©A + , C: 

12 


CVECTOR VECTOR > 

2 : CVECTOR cccc, 

cccc: 



0 ( Utils: :'CARRAY 




2 : 2CARRAY 
<BUILDS 

DOES > 

R D 

8 : 2ARRAY 
<BUILDS 

10 SWAP ' UP 

11 DOES > 

12 DIJP : R 
1 3 

15 


( cccc, n n 






Screen: 
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9 

10 
1 1 
12 
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9 


0 CONTENTS OF THIS DISKs 
1 

2 D i s k 0 p e r a t r n q S y s t e m: 

3 D0S svst em e>; t ensi ons s 

4 BASIC DOS COMMANDSs 

5 DOS COMMAND EXTENSIONS: 

6 


10 LOAD 
50 LOAD 
70 LOAD 
110 LOAD 


7 (note the packages lower on the 

8 s c r e e n w i 11 I o a d a 11 p a c k a q e s 

9 1isted above themselves.> 


1 0 

10 



11 

1 1 

DI5I< FORMATTER/COPIERSs 

120 LOAD 

12 

12 

QUAN STRUCTURES: 

150 LOAD 

13 

1 3 

ARRAYS THEIR COUSINS: 

160 LOAD 

14 




15 

15 

va.l DOS FILE EDITOR: 

valDOS II 


Screen ,1 


1 
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o 

*7 
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1 1 
12 
1 

14 

15 


9 

14 
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Screens 172 
0 

-> 

4 

er 

7 

8 

10 
12 

IS 


Screen s 173 
0 


j. 4 
15 


Screens 174 

0 ( val DOS error messages 
1 II1egal fi1©name 

3 Bad free space map 

11 File is not open 

12 111ega1 file 11 umb er 

15 File is open 


Screens 17 v 5 

0 Fi1e is too big 

1 File is random 

2 F i 1 e i s n o t r a n d o m 

3 No room for random map 

4 Random map is bad 

5 Fi1e is a device fi 1 e 

6 Fi1e is not a device fi1e 

7 111 eg a1 access to device f 

tl 

15 


14 Stack full 
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0 ( Error messages 
1 

2 Use on1y in Definitions 

4 E k e c u t i o n o n I y 

5 

6 Con c! i t i on a 1 s not p a i r ed 

*7 

8 Definition not finished 

9 

10 In protected dictionary 

11 

12 Use on 1 y when 1 oad .i ng 

13 

14 □ f f c u r r e n t s c r e e n 

15 
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0 Declare VOCABULARY 
1 


4 

5 

6 
•7 

8 

o 

10 
11 

12 

13 

14 

15 



















case: 


PERMANENT PERMANENT > < 
R Er MIN -1 MAX 2# 

TRANSIENT TRANSIENT )( 

EMANENT PERMANENT ) < 













Screen 56 

0 < C a s e s t a t e m e n t s s C A S E s 
1 

2 < PERMANENT PERMANENT ) < 

4 s CASE: 

5 BUILDS 

6 SMUDGE !CSP 
CCOMPILE3 2 

8 DDES > 

9 SWAP 2# 4- .3EX r, 

1 0 

1 1 

12 BASE 5 

13 

14 

15 


Screen: 
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"7 


59 


B 
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10 

14 

15 



Screen s 
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0 ( Sereen code conver- he i on words 














CODE B5CD 







5 


A9 C, 





SETUP 






c. 



D0 

c„ 

07 C 





c. 


c. 









B1 



c„ 

48 C 






C 9 


60 

c. 

B0 C 

1 0 


















c. 

HERE 









C, 

HERE 









c. 

29 C, 

14 


80 C,, 








15 
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0 Screen code :..onva' cion words ) 

















































6 







C , 


n 










SETUP 


8 



HERE 





D0 

c. 

07 C 

9 









03 


4C C 

10 










48 C 










60 


B0 C 










B0 


@6 C 

13 




C, 






c, 

HERE 

14 



ALLOT 



E9 


40 


HERE 

15 

15 


















Screen 



Sc r een;; A 2 

0 B c r e e n c p d e c o n v e r s i a n w o r ci s ) 

i 

2 SWAP 1 91 C, C4 C, 68 C, 29 C, 2 

: 80 C, 1.1 C, C4 C, 91 C, C4 C, 

4 C8 C, D0 C, D3 C, E6 C, C7 C, 4 

5 E6 C, CS C, 4C C, , 

6 

7 

8 : >SCD < c — sc ) 

SPA) DUP 1 >BSCD ;; 

10 10 

11 : SCO > ( sc — c ) 11 

12 SF'o) DUP 1 BSCD > ; 12 

13 - 13 

14 14 

15 BASE ' 


Screen i 


I 


Screen 
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/"i 




9 

1 0 


1 i 




13 


14 
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6 

a 

1 1 
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4 

6 

-/ 
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12 
i 

14 


6 4 
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Screens 68 Screen: 
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0 ( 

Utilss 

INKEY* 


1 




1 




2 




2 p 

(INKEY*> 


( c • 






702 C L NO KEY 0 






4 








S s 

INKEY* 


( — 

6 




6 

764 C© 








CGND 







8 


<< 128 

<INKEY$) >> 






191 > 



i 0 




10 


0 






1 1 

124 * 

< 64 

(INKEY*) > 





12 



(INKEY*) >> 






39 *= 

0 

NO KEY 





14 

NGCGND S7EY 






15 

CONDEND 

5 




69 

Screens 


0 



Y/N 






2 2 ( This Y/N routine accepts upper 

or lower case, 

5 5 



6 

p -Y/N 






8 

8 





0BRANCH I 0014 


10 




1 1 


0BRANCH t 0008 


12 



FFDA 

13 








15 

15 




Screen s 

0 (.Utils: HI DC HR NOKEY 

2 BASE 5) DCX 

4 » ( CASE ) ( 50 LOAD ) 

6 : HIDCHR 

65535 94 i ; 

8 

9 ; NOKEY 

255 764 C! ? 

12 : CURSOR 

0- 752 C 1 
28 EMIT 29 EMIT p 
15 


CURSOR> 








0 ( Utils: Y/N RETURN RETURN > 

( — f ) 

Y/N " -Y/N DUP 
IF 89 ELSE 78 ENDIF 

7 : -RETURN < — ) 

12 p RETURN ( — > 

„ " < RETURN > " -RETURN ; 

14 

15 BASE ! 



) 


) 


Screenn 100 

0 ( v a 1 DOS f i. 1 e ed i. t or 1 * 0 
1 ( FLFL# ) ( 160 LOAD ;S ) 

3 base:: 9 dcx 

5 VOCABULARY EDITOR IMMEDIATE 

6 EDITOR DEFINITIONS 

8 ? < • BSCD ) ( 60 LOAD ) 

9 ' ( H I DC HR ) ( 70 LOAD ) 


1 0 



0 

TO 

XLOC 




0 


YLOC 

13 


INSRT 

0 


I NSRT 


QUAN 

LSTCHR 

0 


LSTCHR 

15 


2BUFSM 

<2. 

TO 

7BUFSM 


creen 

1 0 1 




0 

valDOS ii Ie 

editor 

1 . 0 


2PADSM 

0 


7PADSM 




0 

TO 

7MULTI 



SHARK 


TO 

■'MARK 



TUPDAT 

0 


TJPDAT 



TXTBOT 

0 


TXTBOT 


QUAN 

T X TEND 

0 


TXTEND 

8 

QUAN 

DSPTOP 



DSPTOP 



DSPBOT 



DSPBOT 

1 0 



0 


LMCNT 


QUAN 




CURLN 




0 






0 


MEMTOP 









72BI0 

0 


72BIG 


Screens 103 



< val DOS file 

editor 1. 0 



HEX 




LABEL T0B1+ 



4 

F6 C, 00 C, 

D0 C, 02 C, 

F6 C, 


01 C, 60 C, 







7 

LABEL TOSl- 



8 

B5 C, 00 C„ 

D0 C, 02 C, 


9 

01 C,, D6 C, 

00 C, 60 C, 


10 




1 1 

CODE PRVLN 

( a 

— a 

12 

20 C, 7 0S 1 -- 

, A1 C, 00 C, 

F 0 0 


09 CL 20 C, 


00 C 

14 


DO C„ F3 CL 

20 0 

15 

TOS1 + ,, 4Q C 

, NEXT ,, C;; 



Screen 5 104 

0 ( val DOS t i 1 e ed i tor 1 0 



CODE NXTEN 



A1 C„ 

00 C, 

F 0 C, 07 C, 20 

4 


, C9 CL 

9B C„ D0 C„ F5 






CODE CRAM 

< A A 

8 

A9 C, 


20 C, SETUP , 




88 C,, F0 C, 04 




F0 C, .7 C. 








N CL, 88 CL 30 C 










Screen r, 102 






/a1 DOS fi1e editor 1» 0 
2 LABEL OOPBLN 38 ALLOT 

4 LABEL EDN1$ 16 ALLOT 

5 LABEL EUN2* 16 ALLOT 

6 LABEL SRCi!f> 34 ALLOT 0 SRCJTt> C! 
LABEL ED NEK 40 ALLOT 

8 LABEL TABS 4 ALLOT 32 C, 

9 TABS 4 68 FILL 
10 36 TABS 4 4- C! 

12 37 CONSTANT 37 

13 16 CONSTANT #LNS 

14 40 CONSTANT L.LEN 

15 5 LLEN * CONSTANT BLEN 




XSAVE C, CB C :( 98 C, 














6 





A 9 






C„ 0D C, 

9 



C, 9B C, 

10 






C, 4C C, HERE 

0A - , 



C ;i 18 C 9 98 C H 



N 2+ CL, 48 C, A 9 


14 

65 

C, M 3 •+• CL 4C 

: c, push 






a : 


Screen 2 106 

0 ! /a l DOS f :i. I e ed:i. tor 1.0 
1 



CODE 


ENUF 



( a 


a c n t ) 


84 


N 

c. 

A1 

c, 

00 

c. 

C9 C, 

4 

9B 

c. 

m 

C, 

0A 

c. 

E6 

c. 

N C, 


A 9 

c. 

10 

c. 

05 

c. 

N 

c. 

F0 C, 


0E 

c. 

D0 

c. 

03 

C, 

0A 

c, 

F0 C, 


09 

c„ 

F6 

c. 

00 

c, 

D0 

c, 

02 C, 

8 

F6 

c, 

01 

c. 

40 

c, 


‘ENUF 24 „ 


AS 


N 

c. 


c, 

PUSH0 A , 


10 {>, 
i i 

12 OCX 
1 3 

15 


Screen s 1 \67 

1 ' ( valDOS f i 1 e editor 1„0 

2 s LMOVE 

40 CMOVE s 

a ) 

6 88 $ YLOC 14 LLEM I i 2+• 5 

88 D LLEN ttLNS 14 % + - 

10 

11 s PEL ( .~ a ) 

PAD 128 •+• - 

13 

14 s PELL < . a ) 


Screens 109 

0 ( valDOS fi1e editor 1 „0 
1 

2 s C8LANK < - 

3 CURLOG DUP CD 

4 127 AND SWAP C! 5 

6 s NGRPT 0 TO 2MULTI ;; < 

8 2 CRWT ( - 

C R . 1 * C / R t cd c o n t i n u. e 11 

10 253 EMIT 

11 BEGIN 

12 KEY 155 = 

13 UNTIL 

14 88 D 40 4 640 ERASE '4 

15 


Screen 2 110 

0 ( valDOS fi1e editor 1u 0 
2 s OOPSV 

BDL OQPSLN 38 CMOVE 4 
4 

6 s 2FULL < 

8 

1500 0 


Screen 2 108 

0 ( valDOS fi1e editor 1*0 

2 s TOPLN ( — a ) 

SB D LLEM 4 24 - 

4 

5 2 BQTLN < .- a ) 

88 D #LNS LLEM * 4 2.4 « 

8 2 CURL00 < — a ) 

BOL XLOG 4 - 

11 2 CSHOW - < 

CURLQC DUP CD 

13 128 OR SWAP C! 4 

14 

15 


BIG NOT AND 

IF 0 TO MARI BOL PAD CRAM 

IF CURLN NXTLN DUP 3 PICK 
DUP 

DUP AT EXTEND 4| 0 : 

CLOVE- END IF .FULL 
13 PAD CURLN ROT BSCD> 



Screen;; 112 

0 < vai DOS tile editor 1.0 

2 : DISPLAY ( 

3 TOPLM 2- DSPTOP 

5 DO 

6 PAD 40 BLANKS DUP 

7 PAD 2+ UNCRAM DUP ROT = 

OVER 40 64 FILL 
PAD 3 PICK LLEN >BSCD 
SWAP 40 •+ SWAP 
15 2 DR OP 1 752 C! 


~ > 


Screen; 115 

0 ( va.IDOS file editor '1.0 > 

2 : ROLLUP < 

3 DSPTOP CS 

7ENUF SWAP 1+ TO DSPBOT 
16 DSPBOT CS) 0= OR NOT 

CUR!..N NXTLM TO CURLN 

TOPLM 2. DUP 40 + SWAP 600 

CMOVE PAD 40 BLANKS 

10 DSPBOT PAD 2+ UNCRAM DROP 

11 PAD BOTLN 2-~ LLEN 2B5CD 

12 DSPTOP NXTLN TO D3PT0P 

15 


0 < ValDOS fiIe editor 1.0 




GETLN 







DUP NXTLN 



L~r 
















< 











0BLANK BAVLN ; 












i 

dtOD 




DUP TO 

DSPTOP TO CURLN 




0 TO XLOC 0 TO YLOC 





DISPLAY SC ; 




Screen; 116 

0 ( va.IDOS file editor 1.0 ) 

«: .- > 

CS CURLN PRVLN TO CURLN 


Screen: 1.14 

) 

DSPTOP DUP 
2ENUF 2DR OP 2- S) 

5 

8 PAD 40 BLANKS PAD 2+ 

UNCRAM DROP PAD 

600 TCMOVE LLEN >BSCD 


< — 
4 

! AT YLOC +! BETL.N 

12 

END IF 



) 


Screen: 1 18 

0 < val DOS f i 1 e eeli tor 1.0 
1 

2 s LfCUR ( — ) 

XLGC 1 - DUP 0 < 

4 IF UPCUR DROP 37 ENDIF 

□BLANK TO XLGC CSHOW 7 MULT1 

6 IF XLGC TO 7MULTI ENDIF 5 

7 

8 s RTCUR ( — ) 

XLGC 1+ DUP 37 > 

10 IF DROP 0 DNCUR ENDIF 

11 CBLANK TO XLGC CSHOW 7MULTI 

12 IF XLGC 37 <> TO 7MULTI THEM ;; 

14 s EDIiRK 

15 1 TO 7MARK 1 TO 7UPDAT ;• 


Screen 2 i19 
1 

2 5 INTBL ( - > 

INSET NOT TO INSET NORPT r, 

5 1 CLREOL ( 

6 CBLANK OOPSV CURLOC 38 XLGC 
ERASE CSHOW EDMRK NORPT r, 

8 

9 HEX 


10 

CODE 2 








11 


00 





c. 



95 C, 


















88 C, 








15 

C; OCX 








Screen s 1 20 








0 








1 

2 2 BYTINS 

CBLANK XLGC 37 < 

CURLOC DUP 14- 
37 XLGC - < CMOVE 
END IF 

8 0 CURLOC C! 

CSHOW EDMRK ;; 

12 

13 

15 


Screen s 121 

0 ( valDOS file editor 1.0 
1 

2 s BYTDEL < 

3 CBLANK 

4 XL.OC 37 < 

5 IF 

6 CURLGC DUP 1+ SWAP 

7 37 XLGC - CMOVE 

8 ENDIF 

9 0 CURLOC 
10 

.CSHOW EDMRK ; 

12 

13 

14 

15 
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0 < valDOS fi1e editor 1, 0 
















7. DUP LLEN ' #LNS 



LLEN * <CMOVE 

8 



9 

DDL 2 

40 ERASE CURLN 


DUP TXTEND OVER ~~ 14 



XCMOVE 155 



1 AT TXTEND +! 











2 s BOWXT ( — ) 

CURLN NXTLN CD RTFLG OR 

8 DUP DUP 14- TXTEND 3 PICK 

24- < CMOVE 155 SWAP C! 

15 


) 





Scr Ben 

0 | 

9 
1 0 

15 


s 124 

valDCS file editor 1.0 


LNDEL ( — ) 

YL.OC CURL DC 40 + C® 

IF CBLANK OOPSV 

CLJRLN DUP NXTLN 2DUP 
SWAP TXTEND 3 PICK - 2+ 
CMOVE - AT TXTEND +! 

0 TO 7MARK GETLN DISPLAY 
CURL.OC C® -64 - 
IF UPCUR NORPT ENDIF 
CSHOW 1 TO 71JPDAT 

ENDIF ; 


1 

2 s >BFNXT BFCPY DNCUR ; 
4 ; >BFLN BFCPY LNDEL 


( . ) 


6 ; BFRPL < .- > 

CBLANK OOPSV 

8 PBLL 2+ BOL 38 CMOVE EDMRK 
<BFROT CSHOW EDMRK 5 

10 

11 s TABSTP ( . > 

SWAP 2 OVER C® OR 
SWAP C' NORPT ; 


2 s BFSHW 

SBL LLEN 5 * CMOVE ; 

( 

PBL DUP BLEW + I. MOVE 

F’BLJ... I....LEN + PBLL L HOVE 

12 


Screenz 128 

) 

SWAP 2-- 255 XGR OVER 

f — > 

>8 MOD 8. /MOD TABS + 

C ‘ SWAP 2' AMD OVER 0= OR 

IF DNCUf: END IF CSHOW ; 


Screen i 126 



e 


> 

< — 

( — > 

LNINS PBLL 2+ BOL. 38 CMOVE 


15 


IF tFCUR 0 CURLOC C! 

INSR1 If BYTDEL END IF NORPT ? 

) 

IF 0 DO DNCUR LOOP END IF ; 

( — ) 

LNINS OOPSLN BOL 38 CMOVE 
EDMRK' C! HOW NORPT ; 



) 


Screens 130 

0 ( valDOS -file editor 1.0 

% 

2 s PTCHR ( - ) 

3 LSTCHR 1:3 = 7MUL.TI 1 < > AND 
IF 

5 1 TO RTFLG BONXT 

6 ELSE EDMRK 

INSRT IF BYTINS ENDIF 
S LSTCHR SCD CURLOC C! 







TO RTFLG BONXT 



RTCU'R END IF CSHOW 


ENDIF ; 


1 3 




PEVSCE 

< r . > 


#LNS 0 

DO ROLLDM LOOP 5 


0 i 

s 131 
a l DOS 

f i I e ©ditor 1.0 

NXTSCR 

) 


#LNS 0 






SPLCHR 



6 0 7MULTI 0= 





END IF 









10 : 





0 ■•’MULTI 0» 





& 25 + 0 ! 











1 5 


Screens 132 
1 s SPLT 

EDMRK CSHOW . 

8 s -SPLT 

10 

12 

■ CHOVE CSHOW EDMRK 
14 EDWR'K OOPSLN >LOG CMOVE 


Screens 133 

0 ( valDOS file editor 1.0 
1 

2 FORTH DEFINITIONS 

4 s .INFO EDITOR ( — > 

OR Fi te start addrs " 

TXTBOT DUP U. 

7 CR ." File end addrs " 

8 TXTEND 2- DUP IJ. 

CR File counts " 

10 SWAP 

CR Bytes frees " 

MENTOR TXTEND - 

15 EDITOR DEFINITIONS —X- 


Screens 134 

0 < valDOS file editor 1.0 
2 s WIPEIT ( — > 

12 34 C! 0 752 C! CR ; 

> 

9 s FELL ( — > 

DO PRVL.N LOOP HOME BOTSCR ; 
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SRCH* COUNT MATCH SWAP 

TO XU&C 0 TO VL..OC CURLN 

8 

DUP PRVL.N SWAP OVER 
LOOP ,0 DSPTOP GETLN DC 
." Not found" CRWT FLFL 



Screens 136 

0 val Di )S f i 1 e ed i tor 1.0 

2 ; GETS < delm — * ) 

3 3 PAD 2+ 

4 BEGIN DUP C® R = 

5 WHILE 1+ REPEAT DUP 

6 BEGIN DUP CIS) DUP R <> 

SWAP 0# AND 

8 WHILE 1 i- REPEAT OVER - OVER 
L| C: 1- R • DROP ; 

11 s STSRCH ( — ) 

." ? " PAD 31 EXPECT 
13 CR 88 3 564 + SRCH* 1+ CRAM 
SRCH$ C: SRCHT 1+ DUP 
15 33 BSCD SRCH 


Screen: 139 

2 : SUBCMD < — > 

3 CS WIPEIT 

4 . " s " PAD 32 ERASE 
PAD 31 EXPECT CR PAD 5) 


6 


ST) 

21587 


FL.ST 



EM) 

20037 


ELEN 

8 





FLFL 

9 



19532 


FELL 

10 



17993 


I NFL 


( 


21328 


STSRCH 

12 





TABRST 

13 



0 


DC 


14 NOBEL BAD5UB 

15 BELEND ; 


Screens 137 

P ( valDOS file editor 1.0 

2 : INFL DOS 

BL GET# <OPEN) 

5 

8 IF DROP DUP (RDB) ENDIF 

TO LSTCHR P f'CHR 
REPEAT .CLOSE) DROP 

." Unable to load file" 


0 t valDOS file editor 1.0 ) 

C .- > 

CS WIPEIT Abort. 

t DUP TO LSTCHR 0= 

TO ED#IN 

ELSE TXThOT DUP TO DSP COP 
TO CUP!JI L) TO XLOC 0 TO YL..OC 

C 

. INFO C:R . " Save 



Screens 138 

: BADSUB 


1 DROP EDN2# CENTER) 
DROP EDN2$ COPEN) 

IF DC ?S ENDIF 

SWAP DROP TO EDF'L# 

TXTBOT T TEND 2- OVER 
l [...# WRITE: DROP EDF!....# 
DROP EDF'L..# (CLOSE) 
TO ED#IN 






Screens 142 


0 

•j 

C v a 1 D 0 S f :i I e e d i t o r 

1 . 0 ) 

. 1 . 

s CONTROL 


) 


SEL 




4 

19 



-> EDTABT 


28 

UP CUR 

29 

-> DNCUR 

6 

30 

-> LFCUR 


-> RTCUR 

*7 



127 

-> TAB 

8 



155 

-> BONXT 



BYTINS 


BYTDEL 

10 


L...N I NS 

156 

-> LNDEL 



— 2 BFROT 




..... 


11 


i 3 

20 

BFLN 







N X T SCR 

15 

15 





Screen s 143 




SPLCHR 


CLREOL 
















6 






































14 











Screens 145 

0 < valDOS file editor 1.0 

2 SWAP DROP TO EDFL# 

3 0 TXTBOT 2- ! 155 TXTBOT C! 

4 TXTBOT MENTOR OVER ~ DUP 

5 <ROT EDFL# (READ) 

6 IF EDFL# (CLOSE) 

FLTB6 CMDERR 
END IF 

DS.KERR EOFERR = 7SYSERR 
10 EDFL# (CLOSE) 

ttUNTRN - DUP 0= -I TXTBOT + 

12 DUP 2+ TO TXTEND 0 SWAP ! 

13 0 TO ED#IN 0 TO 7UPDAT ; 

14 


Screen s 146 

0 r v a l DOS :i. 1 e "ed 1 1 or i . 0 


11 s EDTSTP DOS 

PBL BLEW -i- I....L..EM -i- 2 + 


TNkF.Y* DUP TO LSTCHR -DUP 

I: i i LAN; ( PAUSE) 

2DUP DROP DROP CSHOW 






148 

valDOS file editor 

0 767 C, ! 0 752 C! 

2 560 i) 6 + C! 

2 560 23 + C ! 

CLS CR 

$, CR -INFO CR 
PEL. .3 TO ?BUFSIi 
DSKFLS ; 




1. 0 


EDM2$ 


12 

15 


Screens 151 

) 

3 FSMAP 3 + ® SWAP - DUP 20 < 

. ” Warning, disnk space 
IF . " low"’ 

ELSE ." empty" END IF 
8 . M , edit;"'" 

+Y/N NOT CR IF S END IF 
10 ELSE DROP ENDIF 

UNIT DIRTBL C3 ENTRY C5> 32 AND 
IF CR 

. " File is I ocked, edit"' 

+ Y/N NOT CR IF ; s' END IF' 

15 ENDIF 


Screens 149 

0 ( valDOS Tile editor 1.0 ) 

2 FORTH DEFINITIONS 

4 s EDIT .DOS ( — ) 

5 SETAE68 7WR8AR6 

6 


Screens 152 

0 < val DOS f i 1 e ed i tor 1.. 0 
2 NJf EDITOR EON:; 3 OVER 

D05 M2-: ED I TOR EDN27 0' 'EP 

TXT.BOT DU TO D3PT0P TO tlURLN 
0 TO XI....OC 0 TO YLOC GETLM 
CR -INFO CENT PROCESS ; 


Screen s 1 '50 

* 11 does not €?••• i st * create? 

UNIT D1ETB! C8 ENTRY 14- & 

N2$ (70PEM) 

10 0- FLOPN 7UNDERR 

11 UNIT DIRTBL C8 ENTRY 1 + 8 

12 ELSE 

DSKERE FL.DNE = 7SYSERR 0 


i . ) 

EDM, - EDM 1 ^ 16 UNDUE 

0 TO XLOC U TO YLOC PBL 
B1 DM 4- LLEM 4 ?t- DUP TO TXTBOT 

GFTLN ENDIF EDI 3TP PROCESS ; 

< — ) 

FLFL# FLBUFS) -DUP 0~ 

N e r r o r o n r e c o r d « . , “ 





Screen; 154 
1 

0 (CLOSE) 14 + ® 

FLNME EDITOR EDN1* 16 CMOVE 
DOS FLNME EDITOR EDN21> 

5 16 CMOVE EDTSTP 

TXTBOT + DUP PRVLN 
SWAP OVER - 1- 

8 DUP TO CURLN 0 TO YLQC 6 0 
DUP PRVLN 

SWAP OVER < AT YLOC +! 

12 

TO DSF’TOP 
1 TO INSRT 
PROCESS ; 


Screen: 157 
1 

3 

4 

7 

8 

12 

13 

15 


Screens 155 

0 < valDOS file editor 1. 0 

< n -- ) 

■’ BL.EM ! 0 TO 7PADSM 
PBL BLEW 4- LLEN + 2+ 

DUP TO TXTBOT DUP 
TO DSPTOP TO CURLN 

10 FORTH 

15 


Screen: 153 




Screen s 156 
0 


1 1 
13 
15 


12 


Screens 160 

0 < f i | e e d i t o r 1 o a d m e s s a g e 


3 CR CR CR 

4 „" valDOS and the basic DOS" CR 

5 " <:: o m m a n d s m u s t b e 1 o a d e d '' C R 

6 „ " v h e t or e t h e f ; i 1 e ed i t or" 

7 ■ ,! is compiled. " 

B CR 

9 , n Insert the val DOB I disk*’ CR 

10 « *' and load the necessary" 

11 a n routines." CR 

12 CR CR 

13 FLUSH 

15 


Screen s 


1 


163 


4 

"7 

s 

9 
10 
11 
12 
13 


Be r een“ 
0 




161 


Screenn 


164 


4 




6 


8 
9 
1 0 





1 0 




Screens 162 
1 




4 

7 





15 














Screens 166 
0 
1 



4 

6 

a 

9 

10 
11 
12 
1 3 

14 

15 


Screens 169 
0 
1 

6 

8 

10 
1 1 

13 

15 




































Screen: 167 

1 


9 

10 

12 



Screen s 168 












Screen; 170 

0 CONTENTS OF THIS DISK: 

2 CASE STATEMENTS: S0 LOAD 

3 SCREEN CODE CONVERSION; 60 LOAD 

4 KEYSTROKE WORDS: 70 LOAD 

3 DOS FILE EDITOR 1.0: 100 LOAD 

7 **** CAUTION ***** CAUTION ***** 

Th i a ;i s a DOS f or mat d i sfc 

1 o c J e d a u t f o r F 0 P. T H s o u r c e 






14 

15 



















Screen s 
0 


6 

8 

10 
1 1 

.12 

15 


Screens 175 

0 File is too big 

1 File is random 

2 F i 1 e i s n o t r a n d o m 

3 No room for random map 

4 Random map is bad 

5 F i 1 e i s- a d e v i c e f 11 e 

6 F i 1 e i s n o t a (d e v i c e f i 1 e 

7 111 e g a 1 a c c e s s t o d e v i c e f i 1 e 

9 

10 

12 

13 

14 

15 



Screen s 
0 


6 

3 

9 

10 

12 

15 



Screens 176 

0 < Error messages 

4 D i c: t i on a r y f u 11 
6 Wr on q addressing mode 

12 I) 1 s I a d d r e s s e r r o r 






Screens 174 

0 ( v a 1 D G s e r r c > r m e s s a q e s 
1 111 eg a1 f i 1 ename 

3 Bad free space map 

4 F i 1 e a 1 r e a d y e i s t s 

5 D i r e c t o r y i. s f u. 11 

7 F :i. 1 e n a m e :i. s a m b i. q u. o u s 
EJ F i 1 e d o e s n o t e v. i s t 
9 N o r o o m f o r b u f f e r 
la End of file encountered 

12 11 I eg a 1 f 1 1 e n umb er 

13 File is locked 

15 File is open 


Screen s :L 77 




Screens 178 

0 ( Error messages 
1 

2 U s e o I"} 1 y i. n D e f i n i t i o n s 
..... 

4 E 'A e c u t i o n o n 1 y 

6 C o n d :i t i o n a 1 s n a t paired 

7 

8 D e f i n i t i o n n o t f i n i s h e d 

9 

1 0 I n pr ot.ec:ted d i ct i onar y 
1 1 

12 Use on1y when 1oading 

:!. 3 

14 0 f f c u r r e n t s c: r e e n 

15 


Screens 179 

0 Declare VOCABULARY 
1 


4 



10 

14 
















HANDY REFERENCE CARD 
valFORTH SOFTWARE SYSTEM 




Command 

FDUMP 


FILE-1T 

FMOVE 

NAMEDISK 

OPEN? 

PRINT 

RENAME 

SETUNIT 

WRITE 


System 




Words 

Release file buffer and update file. 

CLOSE (filenum) 

Transfer one or more file to another file. 

Copy an existing diskette to another diskette. 

Mark the current position within an open file as the end of 

Enter a filename into a disk directory. 

FDUMP filenamel/W) 

/W = dump in 16 bytes/line format. 

FILE-IT lstscrn,lastscrn,filename 

C - continue load from last line edited. 

Single drive interdisk file transfer 
FMOVE outfile=infile 
Fbrmat a diskette for use. 

FORMAT (unit) 

Move through a file relative to the current file position. 

FSPACE fi1enum,count 

KILL filespecl(/N)(,fiIespec2(/N)(,...)) 

/N - no verification message on wild-card names. 

Write and modify protect files on disk 

Name a diskette. 

NAMEDISK unit) 

Display a text file on the current output device. 

PRINT filename (/N)(,1inenum) 

Reposition the file cursor to the beginning of the file. 

Set the default unit. 

UNLOCK filespecl(/»):(,filespec2(/N)(,.,.)) 

Write an area of memory to a file. 

WRITE Filename*address,count 

Words 

are returned. If the flag is one, the Mle is open, otherwise it 


(SPACE) 

(UNLOCK) 

(WIND) 

(WRB) 
(WRITE) 


cnt fl* — f 

The file cursor of the specified file is moved relative to its 
current position by the signed value specified by "cnt". A one 
is returned if there was no error, otherwise zero is returned. 

The specified file is unlocked, allowing the file to be modified 
or killed. A one is returned if there was no error, else zero, 
n fl# — f 

If n is one, the file whose access number is "fl#" is rewound so 
that it may be completely re-read If n is zero, the file cursor 
is moved to the very end of the file. A zero is returned if there 
was an error, otherwise a one is returned. 

the byte "b" is written to the file whose access number is "fl#". 

A one is returned if there was no error, otherwise a zero is returned 

The block of memory "count" bytes long at the specified address is 
written to the file whose file access number is "fl#". A one is 
returned if all went well, otherwise a zero is returned. 

Returns the number of occurrences that the last filename converted 
by. FNCON (below) appears in the directory of the unit specified in 

Returns the address of the 16 byte information block of the file 
whose access number is "fl#". This block contains the following 


FNCON 


addr+0: 
addr+1: 

addr+5: 
addr+7: 

addr+11 

Convert a filename to directory format. Returns true if the 
Returns the address of the eleven byte formatted filename 


File status byte 

Current size of file. High bit set indicates 
that the file is updated. 

First (DOS) sector of file. 

(FORTH) sector currently in file buffer. 
Number of bytes into current sector- 
Unit associated with the file. 

Non-zero = current sector is updated, 
(reserved for) Current random block 
(reserved for) Random block updated? 

Number bytes into the file. (2 bytes) 


System QUANS 

Returns • the numper of entries that matched the filename last checked 

Returns the number of free directory entries in the directory last 

Returns the number of bytes left untransferred in the last read or 
write operation. Usually returns zero unless an error or eof 

Returns a one if any wild cards appeared in the last filename 

Returns'the error number of the last reported DOS error. See list 

filename converted by FNCON. If no switch was found, this returns 

default unit is returnee. Note that DOS drive ' is FORTH drive 0. 


System Errors (constants) 










































End of file reached. 
























If there was no error, the byte is returned along with a one, 












T he next "count" bytes of the file whose file access number is 

FLWRPT 







Sn So --- f 










Wrong/no arguments given. 
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